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Verander zelf de 
kleuren op uw 
scherm 

Color Adjuster een handige routine 
voor kleuraanpassing 


P rogrammatuur ontwikkelen is 
leuk en wordt veel leuker als je 
een doel voor ogen hebt. Daarom 
hier een routine, geschreven in C, 
om de kleuren van het WorkBench 
scherm te veranderen. Opstart- 
baar vanuit de startup-sequence 
en compatible met AmigaDOS 
(tjongejonge wat een geleuter!) 

Is het u al eens overkomen? U wilde de 
kleuren van het WorkBench scherm of 
willekeurig ander scherm veranderen 
maar u beschikte niet over een program¬ 
ma om dit te doen. Daarom hier een klei¬ 
ne routine om dit voor u te verwezenlij¬ 
ken. Het programma detecteert zelf in 
welk scherm u aan het werk bent en over 
hoeveel kleuren dit scherm beschikt. U 
kunt de routine dus in elk willekeurig 
scherm activeren, ervan uitgegaan dat u 
dit scherm geactiveerd heeft, door hier 
met de muis in te klikken. Toch kan het 
gebeuren dat u problemen met deze routi¬ 
ne krijgt, maar daarover straks meer. 

Hoe werkt het? 

De grote vraag luidt; hoe met het pro¬ 
gramma om te gaan? Logischerwijs dient 
het eerst opgestart te worden. Wilt u ge¬ 
woon de kleuren van het WorkBench 
scherm veranderen dat typt u vanuit CLI 
in coladjust. Het programma zal een re- 
quester tevoorschijn toveren met een aan¬ 
tal gadgets. Wilt u in een ander scherm de 
kleuren veranderen dan zult u enige tijd 
nodig hebben om het andere scherm met 
de muis weer te activeren. Het is dus 
noodzaak een vertraging op te wekken al¬ 
vorens het programma actief wordt. Typ 
hiervoor het volgende batchbestand met 
een Editor, bijvoorbeeld Ed, onder de 
naam ColOpstart in. 


wait 5 secs 
coladjust 

Save het bestand en verlaat de editor. 
Voer het batchbestand vervolgerfs uit met 
behulp van het Execute commando. 

Execute ColOpstart 

Het batchbestand zorgt er dan voor dat 
het 5 seconden duurt voordat het pro¬ 
gramma opstart. In de tussentijd kunt u 
het gewenste scherm activeren. 

Maar hoe ziet hef er uit? 

Allereerst ziet u drie staande staafgadgets 
met er boven vermeldt, ’R’, ’G’ en ’B’. 
Zoals u al vermoedt, ze zijn bedoeld om 
de afzonderlijke kleurcomponenten 
Rood, Groen en Blauw te veranderen. 
Verschuif deze gadgets en het kleurcom¬ 
ponent veranderd mee. Rechts van de 
staafgadgets vindt u, afhankelijk van het 
aantal kleuren in het scherm, een aantal 
gadgets waarmee de kleur te selecteren is. 
Wilt u bijvoorbeeld de kleuren van het 
WorkBench scherm veranderen, dan zul¬ 
len hier 4 gadgets aanwezig zijn. Kies één 
van deze gadgets door er op te klikken, en 
het vlak beneden de staafgadgets zal met 
de gekozen kleur mee veranderen. Tot 
slot drie gadgets die tegen de onderrand 
geplaatst zijn, genaamd ’Reset’, ’Nieuw’ 
en ’OK’. Het Reset Gadget dient om de 
kleur, welke u op het moment aan het ver¬ 
anderen bent, weer terug te zetten naar 
zijn originele kleur. Het geldt dus alleen 
voor de kleur waarmee u bezig bent, niet 
voor de andere kleuren. De andere kleu¬ 
ren kunt u weer herstellen met Nieuw. 
Alle kleuren worden daardoor weer naar 
hun oorspronkelijke kleurwaarden terug¬ 
gezet. Tot slot nog OK. Het mag duidelijk 
zijn, hiermee geeft u te kennen dat het 



nieuwe kleurpalet OK is en gebruikt mag 
worden. Het requester verdwijnt hier¬ 
door, u komt weer in DOS. Nog een op¬ 
merking. Als u een kleur wilt aanpassen, 
maar u heeft nog geen kleur uitgekozen, 
dient u eerst een kleur te kiezen anders zal 
het programma niets doen!! 

Het programma in detail 

Het programma bestaat uit vier functies te 
weten, Init(), main(), RememberClrs() en 
AdjustProps(). 

De functie Init() zorgt ervoor dat alle va¬ 
riabelen juist geinitialiseerd worden. Het 
roept de functie RemeberClrs() aan om te 
zorgen dat de originele kleuren worden 
opgeslagen, het reserveert geheugen voor 
bepaalde schermdata en het legt de laatste 
links tussen de Gadget en Image structu¬ 
ren. In main(), het eigenlijke hoofdpro¬ 
gramma, worden allereerst enkele fitale 
libraries geopend. Vervolgens wordt aan 
RImage een adres toegekend waar vol¬ 
doende geheugen aanwezig is voor drie 
keer de groote van de Image structuur. 
Hier worden de grafische data voor de 
drie R,G en B staven opgeslagen. Vervol¬ 
gens wordt met de functie Modify- 
IDCMP() het huidige venster aangepast 


6 


Commodore Info 7189 









Amigo 



voor gadgetinvoer. Als dit voorbij is 
wordt de functie InitQ aangeroepen voor 
de laatste initialisaties. Tenslotte wordt 
dan, als alles goed gegaan is, het reque- 
ster geopend met de functie Request. 

We komen nu in de ’mainloop’ van het 
programma terecht. Dit is het deel waar 
de verschillende gadgets gecontroleerd 
worden op activering. Zolang er geen 
gadget ingedrukt wordt zal het program¬ 
ma blijven hangen in de Wait() functie. 
Voor de precieze werking van deze func¬ 
tie kunt u beter een Amigahandboek erop 
naslaan, het komt er in ieder geval op neer 
dat zodra er een gadget ingedrukt wordt, 
het programma weer begint te lopen. 
Daarna nog een keer een controle of er 
werkelijk data via een MessagePort bin¬ 
nengekomen is. Is dit het geval dan wordt 
het Messagetype opgeslagen in Class en 
de verwijzing naar de Gadget structuur 
wordt aan GadgetPtr toegekend. De mes¬ 
sage wordt weer terugverzonden en het 
programma begint de kijken welk gadget 
om aandacht vroeg. Er zijn twee soorten 
gadgets in het programma aanwezig. 

- 1. De drie balken die vanaf het mo¬ 

ment dat ze ingedrukt worden verei¬ 
sen constante aandacht 


• 2. De overige gadgets die pas aan¬ 
dacht nodig hebben als ze weer los¬ 
gelaten worden. 

De gadgets genoemd onder punt 1 zijn 
van het type GADGETDOWN. Zo gauw 
ze worden ingedrukt krijgt het program¬ 
ma een mededeling. Gadgets genoemd 
onder punt 2 behoeven pas aandacht als 
de muisknop weer losgelaten wordt. Van¬ 
daar de benaming GADGETUP. 

Gadget 4 en 5, de ’Reset’ en ’Nieuw’ gad¬ 
gets zijn van het type GADGETUP even¬ 
als de kleuren gadgets die waarden groter 
dan 6 hebben. Gadgets 1, 2 en 3 zijn de 
staven en zijn dus van het type GAD¬ 
GETDOWN. Het programma besteedt 
aandacht aan de gadgets zolang de flags 
van de gadgets aangeven dat ze SELEC- 
TED zijn. Tot slot gadget nummer 6. 
Deze wordt gecontroleerd in de allesom¬ 
vattende do-while() lus. Zolang dit gadget 
niet ingedrukt wordt blijft het programma 
in deze lus. Het requester wordt door In- 
tuition zelf weer van het scherm verwij¬ 
dert doordat in de declaraties, in het eerste 
deel van de listing, onder OKGadget aan¬ 
gegeven wordt dat dit gadget van het type 
ENDGADGET is. 


Steeds meer wordt 
gebruik gemaakt van de 
mogelijkheden 
van het kleurenscherm 


Tot slot de functie AdjustProps(). Deze 
functie verandert de positie van het 
schuifelement in de staven, afhankelijk 
van de kleuren welke deze staven 
vertegenwoordigen. 

Eigen inbreng 

Zoals u ziet is een dergelijk programma 
niet zo moeilijk te programmeren. Veran¬ 
der zelf wat aan het programma. Begin er 
mee te experimenteren. Maak bijvoor¬ 
beeld een routine waarmee de kleurdata 
vanuit een batchbestand uit DOS in te le¬ 
zen zijn of maak een spreadfunctie in het 
programma zoals bijvoorbeeld ook 
D’Paint kent. Stuur deze veranderingen 
naar ons op zodat we iedereen hiervan 
kunnen laten genieten. 

Wilt u meer informatie over gadgets, over 
een paar maanden hebben we een afleve¬ 
ring van de C cursus die gewijd zal zijn 
aan gadgets. Wilt u hier niet op wachten, 
ook in de boekhandel zijn goede boeken 
aanwezig die genoeg vertellen over gad¬ 
gets. Een voorbeeld, Het grote Amiga C- 
boek van Data Becker, 

ISBN 90 229 3483 7. 

Johan & johan. 
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Listing van ColAdjuster 


Instructies: 

Programmanaam 

: ColAdjuster.c 

Programmeertaal 

: C 

Gebruikt programma 

: Aztek C v3.6 

Opties 

: cc ColAdjuster.c +L 


: In ColAdjuster.o -Ic32 

Aanroep 

: ColAdjuster 


#include "functions.h" 

#include "exec/types.h" 

#include "exec/memory. h" 

#include "intuition/intuitionbase.h" 

#include "graphics/view.h" 

#include "graphics/gfxbase.h" 
finclude "graphics/gfxmacros.h" 

#define RP CR.RWindow-> WScreen->RastPort 
#define VPORT ModWindow->WScreen->ViewPort 
#define CMAP ModWindow->WScreen->ViewPort.ColorMap 
SHORT SelPairs[] = {0,0,55,0,55,20,0,20,0,0 }; 
SHORT CPairs2[] = {0,0,319,0,319,149,0,149, 0,0 }; 
SHORT CPairsl[] = {0,0,311,0,311,145,0,145, 0,0 }; 
SHORT ColPairs[] = { 0,0,80,0,80,15,0,15,0,0 }; 
UWORD OrgColor[64]; 

struct IntuitionBase *IntuitionBase; 
struct GfxBase *GfxBase; 
struct Window *ModWindow; 
struct ViewPort *ModViewPort; 
struct ColorMap *ModColorMap; 
struct Image *RImage; 
struct Image Clrlmage[64]; 
struct Image Curlmage; 
struct Proplnfo BInfo = { 

AUTOKNOB|FREEVERT, 

0,4369,0,4369, 

10,10,NULL,NULL, 

NULL,NULL }; 

struct Proplnfo GInfo = { 

AUTOKNOB|FREEVERT, 

0,4369,0,4369, 

10,10,NULL,NULL, 

NULL,NULL }; 

struct Proplnfo RInfo = { 

AUTOKNOB|FREEVERT, 

0,4369,0,4369, 

10,10,NULL,NULL, 

NULL,NULL }; 

struct Border OKBorder = { 

0,0,0x01,0x01,JAM1,5,SelPairs,NULL }; 
struct Border CanBorder = { 

0,0,0x01,0x01,JAM1,5,SelPairs,NULL }; 
struct Border ResBorder - { 

0,0,1,0,JAM1,5,SelPairs,NULL }; 
struct Border Color2Border = { 

0,0,0x01,0x01,JAM1,5, 

CPairs2,NULL }; 

struct Border ColorlBorder = { 

4,2,0x01,0x01,JAM1, 5, 

CPairsl,&Color2Border }; 
struct Border ColBorder = { 

0,0,0x01,0x01,JAM1,5,ColPairs,NULL }; 

struct IntuiText OKText = { 

0x01,0x00,JAM1, 22,7, 

NULL, (UBYTE *) ,, Ok",NULL }; 
struct IntuiText CanText = { 

0x01,0x00,JAM1,5,7, 

NULL, (UBYTE *) "Nieuw",NULL } 

struct IntuiText ResText = { 

0x01,0x00,JAM1,7,7, 

NULL, (UBYTE *)"Reset",NULL }; 
struct IntuiText RText = { 

0x01,0x00,JAM1,4,-8, 


NULL, (UBYTE *)"R",NULL 
struct IntuiText GText = { 

0x01,0x00,JAM1,4,-8, 

NULL, (UBYTE *)"G",NULL }; 
struct IntuiText BText = { 

0x01,0x00,JAM1,4,-8, 

NULL,(UBYTE *)"B M ,NULL }; 
struct Gadget ClrGadget[64]; 
struct Gadget CUGadget = { 

NULL,0,0,25,7, 

GADGHBOX|GADGIMAGE,RELVERIFY, 

BOOLGADGET|REQGADGET,NULL, 

NULL,NULL,NULL,NULL,NULL,NULL }; 
struct Gadget OKGadget = { 

NULL,140,120,55,20,GADGHCOMP, 

RELVERIFY|ENDGADGET,BOOLGADGET|REQGADGET, 

(APTR)SOKBorder, 

NULL,&OKText, 

NULL,NULL,6,NULL }; 
struct Gadget CanGadget - { 

& OKGadget,75, 120,55,20,GADGHCOMP, 

RELVERIFY,BOOLGADGET|REQGADGET, 

(APTR)&CanBorder, 

NULL,&CanText, 

NULL,NULL,5,NULL }/ 
struct Gadget ResGadget = { 

&CanGadget,10,120,55,20,GADGHCOMP, 

RELVERIFY,BOOLGADGET|REQGADGET, 

(APTR)&ResBorder, 

NULL,SResText, 

NULL,NULL,4,NULL }; 
struct Gadget RGadget = { 

SClrGadget[0],130,15,20,80,GADGHCOMP, 

GADGIMMEDIATE,PROPGADGET|REQGADGET, 

NULL,NULL,&RText,NULL, 

(APTR)&RInfo,3,NULL }; 
struct Gadget GGadget = { 

&RGadget,70,15,20,80,GADGHCOMP, 

GADGIMMEDIATE,PROPGADGET|REQGADGET, 

NULL,NULL,&GText, NULL, 

(APTR)&GInfo, 2, NULL }; 
struct Gadget BGadget = { 

&GGadget,10,15,20,80,GADGHCOMP, 

GADGIMMEDIATE,PROPGADGET|REQGADGET, 

NULL,NULL,&BText,NULL, 

(APTR)&BInfo,l, NULL }; 
struct Requester CR = { 

NULL,40,10,320,150,0,0,&BGadget, 

&ColorlBorder,NULL,NULL,2, 

NULL,NULL,NULL }; 

UWORD *ClrData; 

UWORD ImageData[] = { 

Oxffff,Oxffff,Oxffff,Oxffff, 

Oxffff,Oxffff,Oxffff,Oxffff, 

Oxffff,Oxffff,Oxffff,Oxffff, 

Oxffff,Oxffff,Oxffff,Oxffff, 

Oxffff,Oxffff,Oxffff,Oxffff }; 

Init () 

{ 

register int i,l; 

USHORT Depth,Colors,Width; 

Depth=ModWindow->WScreen->BitMap.Depth; 

Colors=l<<Depth; 

RememberClrs(Colors); 

ClrData=(UWORD *) 

AllocMem(sizeof(UWORD)*32*(Depth+1),MEMF_CHIP|MEMF_CLEAR 

) ; 

for(i=0;i<Depth;i++) 

{ 

for (1=0;1<20; 1++) 

* (ClrData+l+(16*i)) = ImageData[1] ; 

} 

Width=230+((Colors/15)*35); 

CPairs2[2]=CPairs2[4]=Width-l; 

CPairsl [2] CPairsl [4]=Width-9; 

for (i=0;i<Colors; i++) 

{ 
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Clrlmage[i]. LeftEdge=0; 

Clrlmage[i]. TopEdge=0; 

Clrlmage[i].Width=25; 

Clrlmage[i].Height=7; 

Clrlmage[i].Depth=Depth; 

Clrlmage[i].ImageData=ClrData; 

Clrlmage[i].PlanePick=(UBYTE)i; 

Clrlmage[i].PlaneOnOff=(UBYTE)i; 

Clrlmage[i].NextImage=NULL; 

ClrGadget[i]=CUGadget; 

ClrGadget[1].LeftEdge=190+(int) (1/15)*35; 

ClrGadget[i].TopEdge=5+((i&15)*8); 

ClrGadget[ij.GadgetRender=(APTR)scirlmage[i]; 

ClrGadget[i].GadgetID=7+i; 

ClrGadget[i].NextGadget=&ClrGadget[i+1]; 

} 

ClrGadget [i] .NextGadget“&ResGadget; 

CR.Width=Width; 
return(Depth); 

} 

main() 

{ 

register int 1; 

UBYTE succes; 

UWORD color; 

ULONG Flags,Class; 

USHORT 

GadgetlD,CurColor,BComp,GComp,RComp,RMod/GMod,BMod,Depth 

struct IntuiMessage *ModMes; 
struct Gadget *GadgetPtr; 

if (! (IntuitionBase=(struct IntuitionBase *) 

OpenLibrary("intuition.library" , OL) ) ) 

{ 

printf("Geen intuition.library!\n"); 
exit(FALSE); 

} 

if (! (GfxBase=(struct GfxBase *) 

OpenLibrary("graphics.library",OL))) 

{ 

printf("Geen graphics.library!\n") ; 

CloseLibrary(IntuitionBase); 
exit(FALSE); 

} 

if (I (RImage=(struct Image *) 

AllocMem(3*sizeof(struct Image),MEMF CHIP|MEMF CLEAR))) 

{ 

printf("Geen Image geheugen meer!\n"); 

CloseLibrary(GfxBase); 

CloseLibrary(IntuitionBase); 
exit(FALSE); 

} 

RGadget.GadgetRender=(APTR)RImage; 

GGadget.GadgetRender=(ATPR)RImage+sizeof(struct Image); 
BGadget.GadgetRender=(APTR)RImage+2*sizeof(struct Image); 

F1ags=IntuitionBase->ActiveWindow->IDCMPFlags; 
ModWindow=IntuitionBase->ActiveWindow; 

ModifylDCMP(ModWindow,Flags|GADGETUP|GADGETDOWN); 

Depth=Init () ; 

succes=Request(&CR,ModWindow); 
do 

{ 

Wait(l<<ModWindow->UserPort->mp_SigBit) ; 
while((ModMes=(struct IntuiMessage *) 

GetMsg(ModWindow->UserPort))!=NULL) 

{ 

Class=ModMes->Class; 

GadgetPtr=(struct Gadget *)ModMes->IAddress; 

ReplyMsg(ModMes); 

} 

GadgetID=GadgetPtr->GadgetID; 
if(Class==GADGETUP) 

{ 

switch(GadgetlD) 

{ 

case 4: 

BComp=color & OxOf; 

GComp=(color>>4) & OxOf; 

RComp=(color>>8) & OxOf; 

SetRGB4(&VPORT,CurColor,RComp,GComp,BComp); 

AdjustProps(RComp,GComp,BComp); 

break; 

case 5: 

LoadRGB4 (&VPORT,OrgColor, l«Depth) ; 

RemakeDisplay (); 
color=GetRGB4(CMAP,CurColor); 

BComp=color & OxOf; 

GComp=(color>>4) & OxOf; 

RComp=(color»8) & OxOf; 

AdjustProps (RComp,GComp, BComp) ; 
break; 


} 

if(GadgetID>6) 

{ 

SetAPen(&RP,GadgetlD-7); 

RectFil1(&RP,80,110,160,125); 
SetAPen(&RP,(GadgetID-7) A 2+l); 
DrawBorder(&RP,&ColBorder,80,110); 
CurColor=GadgetID-7; 
color=GetRGB4(CMAP,CurColor); 
BComp=color & OxOf; 

GComp=(color>>4) & OxOf; 

RComp=(color>>8) & OxOf; 
AdjustProps(RComp,GComp,BComp); 


} 

if(Class==GADGETDOWN) 

{ 

switch(GadgetlD) 

{ 

case 1: 

while(BGadget.Flags==SELECTED) 

{ 

BMod=BInfo.VertPot/4369; 

SetRGB4(&VPORT,CurColor,RComp,GComp,BMod); 
BComp=BMod; 

} 

break; 
case 2: 

while (GGadget.Flags==SELECTED) 

{ 

GMod=GInfo.VertPot/4369; 

SetRGB4(&VPORT,CurColor,RComp,GMod,BComp); 
GComp*=GMod; 

} 

break; 
case 3: 

while(RGadget.Flags==SELECTED) 

{ 

RMod=RInfo.VertPot/4369; 

SetRGB4(&VPORT,CurColor,RMod,GComp,BComp); 
RComp=RMod; 

} 

break; 

} 

} 

} while(GadgetlD!=6) 

FreeMem(ClrData,sizeof(UWORD)*32*(Depth+1)); 

FreeMem(RImage, 3*sizeof(struct Image)); 

CloseLibrary(GfxBase) ; 

CloseLibrary(IntuitionBase) ; 

} 

RememberClrs(Colors) 

USHORT Colors; 

{ 

register int i; 
for (i=0;icColors;i++) 

OrgColor[i]-(UWORD)GetRGB4(CMAP,i); 


AdjustProps(RComp,GComp,BComp) 

USHORT RComp,GComp,BComp; 

{ 

ModifyProp(&BGadget,ModWindow,NULL,AUTOKNOB|FREEVERT, 0, (436 9* 
BComp),0,4369); 

Modifyprop(&GGadget,ModWindow,NULL,AUTOKNOB|FREEVERT, 0, ( 
4369*GComp),0,4369); 
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GAMES nader bekeken... 


V an Encore, software van Elite 
Systems Limited, ditmaal een 
viertal cassettes met fraaie, 
goedkope en toch onderhou¬ 
dende games. Voor nog geen 15 
gulden zijn deze spelletjes te 
koop en je kan er uren spelple- 
zier aan beleven. Op het eerste 
gezicht doen de games eenvou¬ 
dig aan, als je het vergelijkt met 
grote namen op softwaregebied. 
Maar nadat je een game hebt 
geladen wordt al gauw duidelijk, 
dat wanneer je het einde van het 
spel wilt bereiken, je van goede 
huize moet komen. 


Veel 


SABOTEUR II. 

Zoals de naam reeds doet 
vermoeden betreft dit spel 
een vervolg op SABO¬ 
TEUR I. Er dienen bij dit 
spel 14 missies gecom¬ 
pleteerd te worden, waar¬ 
bij jij als het mooie zusje 
van de Ninja, wraak neemt op haar fataal 
gewonde broer. In SABOTEUR I brak de 
Ninja in een beveiligd gebouw en stal 
daar een diskette met belangrijke gege¬ 
vens met namen van belangrijke rebellen. 
Deze diskette bevatte eveneens informa¬ 
tie over de grote rakettensilo van de dic¬ 
tator. Jouw missie is, al hangend aan een 
“deltawing”, te infiltreren in het nog 
steeds zwaar bewaakte gebouw, dat be¬ 
staat uit verschillende complexen, die 
zelfs onder de grond doorlopen. Meer dan 
700 verschillende schennen zijn hierbij 
mogelijk. Je bent op zoek naar stukjes 
ponsband computertape, welke de gege¬ 
vens over de vliegroutes van de raketten 
controleert. Zorg ervoor datje alle stukjes 
bijelkaar krijgt voor het afvuren van de 
projectielen zal plaatsvinden. Als je een¬ 
maal alle stukjes vergaard hebt, vlucht je 
op de je motor, via de enige tunnel naar 
buiten. Dan pas is je missie volbracht. Het 
lijkt allemaal eenvoudig, maar de gebou¬ 
wen worden ’s nachts zwaar bewaakt 



M£l- CM ■ 

vernuft voor weinig geld 


door grote android bewakers met vlam¬ 
menwerpers. Verder kom je grote vam- 
pier-vleermuizen en zwarte panters tegen, 
die je weg door dit labyrint van gangen 
bemoeilijken. Een zeer onderhoudend 
spel, dat je na een paar keer pas goed on¬ 
der de knie begint te krijgen. Je zult zeker 
in het begin een aantal keren opnieuw 
moet beginnen om de juiste weg te kun¬ 
nen vinden. Met de diverse vechttechnie- 
ken, die je beheerst, zul je de obstakels 
onderweg moeten uitschakelen. Alles wat 
je onderweg tegenkomt, in de vorm van 
een kist of iets dergelijks, moetje onder¬ 
zoeken. Pas dan kun je alle delen tot één 
geheel weten te maken. Een niet echt ge¬ 
makkelijk spel. De graphics zijn niet echt 
wat je noemt spectaculair, maar dat is op 
zich niet zo erg, want dan kun je ook niet 
zo gauw afgeleid worden. Alle concentra¬ 
tie is nodig om in het doolhof van gangen 
en vertrekken je weg te vinden, zonder 
uitgeschakeld te worden. 


DEEP STRIKE 

Het tweede spel uit de Encore reeks, is 
het “vliegende spektakel” van Deep 
Strike, helaas een niet zo geavanceerd 
spel, als de verpakking doet vermoe¬ 
den. De bedoeling is datje in een één- 
motorige dubbeldekker bescherming 
biedt aan vier bommenwerpers. Het 
geheel speelt zich af tijdens de Eerste 
Wereldoorlog. Je bekijkt het scenario 
vanuit de cockpit. Je ziet dan een land- 
schap waaruit vijandelijke vliegtuigen 
jouw bommenwerpers belagen. Ook 
luchtballonnen en tanks vanaf de 
grond bedreigen jouw vliegtuigen. Je 
moet wel over een snel reactievermo¬ 
gen beschikken, want de vijand komt 
in grote getale op je af. In het wilde 
weg schieten is er echter ook niet bij, 
want af en toe gaat één van je eigen 
bommenwerpers voor 
je vliegen en als je dan 
aan het schieten bent is 
het snel bekeken. De 
besturing kan zowel 
met het toetsenbord als 
met de joystick plaats¬ 
vinden. Een vrolijk deuntje begeleidt het 
gehele spel. Als je op de M-toets drukt 
krijg je een een landkaart te zien met de 
positie van jouw squadron. Al met al niet 
zo’n spectaculair spel, maar voor de lief¬ 
hebber van flightsimulators misschien 
een leuke afwisseling, of zoals het hoesje 
van de cassette zegt “een must voor alle 
liefhebbers van een goede dogfight”. 

STORM WARRIOR 

Het volgende spel, waarbij echter wel 
weer mooie graphics zijn gemaakt, is een 
gevecht tegen de elementen om het Ko¬ 
ninkrijk te redden van de vloek van de le¬ 
lijke heks. Bij dit spel is een behendig ge¬ 
bruik van het zwaard noodzakelijk, omdat 
je anders ten prooi valt aan de vele bela¬ 
gers die je op je weg tegenkomt. De 
slechte heks heeft een vloek uitgesproken 
over het Koninkrijk, welke inhoudt dat 
het meer dan honderd jaar zal stormen. 
Hevige regens, huilende winden, bliksem 
en donder hebben al dood en verderf ge- 
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zaaid over het land. Alleen wanneer 
haar kwaadwillige spel verbroken kan 
worden zullen de verschrikkingen ein¬ 
digen. Jij, als de Prins van het Konink¬ 
rijk, moet het volk redden van deze 
verschrikkelijke betovering. Alleen 
dan keert de rust en de vrede weer terug 
in hun levens. Gewapend met slechts 
een zwaard moet je het kasteel van de 
verschrikkelijke heks zien te vinden. 

Op je weg kom je eveneens zwaard¬ 
vechters tegen en belagen de elementen 
der natuur je met hun kracht. Vliegende 
stenen komen uit het niets op en als ze 
je raken neemt je energie snel af. Je 
moet in dit spel behendig en slim zijn. 
Een niet al te gemakkelijk spel. Het 
valt niet echt mee om ver te komen, laat 
staan bij het kasteel van de heks. Onder 
in het beeldscherm loopt de “dood” 
met je mee om aan te geven hoeveel 
energie je nog over hebt. 
het verdient aanbeveling \ z i 
om voor je je reis begint V ©©I 
eerst de mogelijkheden van 
je zwaard uit te proberen. 

Kortom, een leuk en niet al 
te eenvoudig spel, waarvan je uren plezier 
kunt hebben, helaas wordt je elke keer als 
je dood bent, terug gestuurd naar de start, 
zodat je steeds opnieuw moet beginnen. 

BLUE THUNDER 

Niet wat je zou verwachten, het spel met 
de fraaie gevechtshelicopter uit de gelijk¬ 
namige televisie-serie. het betreft hier een 
eenvoudiger helikopter, waarmee je een 
gevecht aangaat op zee en op het land. 
Nadat je bent opgestegen vanaf een oor¬ 
logsschip en op een bedreven wijze met je 
Jetcopter door alle bombardementen van 
electrische stormen, grond- en zeeprojec- 
tielen begint de ellende pas goed. Een 
nieuwe aanval van gewapende ballonnen 
doorkruisen je doel. Ben je er dan? Nee, 
opnieuw wordt je aangevallen door dode¬ 
lijke Jetfighters, die uit het niets verschij¬ 
nen. Zij hebben slechts een doel, jouw 
vernietigen. Alleen Hyperlasers en jouw 
bedrevenheid kunnen je levend houden 
en je onmogelijke opdracht completeren. 



Als de enige overlevende probeer je ach¬ 
ter de vijandelijke linies in te dringen. 
Van één van de eilanden, welke zwaar 
wordt beschermd door een complex de¬ 
fensie scherm, moet je je kameraden pro¬ 
beren te redden en ze terugvliegen naar je 
vloot. Maar voor je dat kunt doen moetje 
eerst een nucleaire reactor vernietigen. 
Niettemin een spel, afgezien van de gra- 
phics, waarbij je behendig te werk moet 
gaan. Steeds weer kom je voor verrassin¬ 
gen te staan. Telkens wordt je weer terug¬ 
gezet naar het dek van je schip. Na elke 
succesvolle missie wordt je opnieuw ge- 
briefed. Naast dit alles dien je de brand¬ 
stof van je Jetcopter in de gaten te hou¬ 
den. Een onderhoudend spel met veel af¬ 
wisseling voor wat betreft de scenario’s. 

ROGUE 

Van Mastertronic kregen we het spel Ro- 
gue in handen. Een game waarbij moet 
zoeken in de Dundgeons of Doom naar 
het amulet van Yndor. Je enige alternatief 


is je leven. Voor bescherming heb je 
enige wapens ter beschikking, zoals je 
vertrouwde scepter en een boog met 
een aantal pijlen. Als voedsel heb je ge¬ 
noeg voor slechts één maaltijd. Als je 
de grot eenmaal binnen bent zul je 
meer voedsel vinden en betere wapens, 
die eerdere onfortuinlijke zoekers zijn 
achtergelaten. Onderweg tref je allerlei 
verborgen dingen aan, zoals goudstuk¬ 
ken, magische zaken en ringen die je 
verder helpen op zoek naar het amulet. 
Maar tussen jou en je doel ontmoet je 
vervaarlijke monsters en duivelse val¬ 
len die je zullen testen op je vaardighe¬ 
den. Als je slaagt in je missie zal je 
worden bijgeschreven in de GuildMas- 
ters of Fame, als je faalt dan heb je in 
ieder geval waardevolle gegevens voor 
een volgende poging om het amulet te 
vinden. Nadat je het spel hebt geladen, 
wordt je naam gevraagd. 
Een menu verschijnt met 
enkele keuzes voor wat 
betreft het selecteren van 
een joystick, alsmede het 
inladen van een eerder ge¬ 
saved spel. Verder worden onderin het 
scherm een aantal gegevens weergege¬ 
ven, zoals het aantal keren dat je nog ge¬ 
raakt mag worden voor je wordt gedood, 
de fysieke sterkte (hoe hoger, hoe beter) 
en de beschermende waarde van de wa¬ 
pens die je bij je draagt. Het scherm geeft 
grotendeels de grot aan van het level waa¬ 
rin je speelt. Vier commando’s staan je ter 
beschikking om te zoeken, te rusten en 
om op en neer te gaan. Het is niet moge¬ 
lijk om twee wapens tegelijk bij je te dra¬ 
gen. De objecten worden opgepikt als je 
er overheen loopt. Een leuk spel met veel 
variaties. Een adventure met enige allure, 
zeker als je het kwa prijs gaat bekijken. 
Voor een bedrag van om en nabij de 15 
gulden een aardig en slim doordacht con¬ 
cept. De graphics zijn echter niet van zo’n 
verrassende kwaliteit. 

Bert Venema 
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Koala painter gekraakt 


Tover uw eigen tekeningen op het scherm 



E r zijn voor de Commodore 64 
verschillende tekenprogram¬ 
ma’s te koop waarmee men, met 
een beetje talent, mooie kleuren¬ 
tekeningen kan maken. Een na¬ 
deel van die tekenpakketen is 
echter dat er niet verteld wordt 
hoe de amateur-programmeur 
die schilderijen in zijn eigenge¬ 
maakte programma’s op een ge¬ 
bruikersvriendelijke manier kan 
verwerken. Het volgende pro¬ 
gramma echter zorgt er voor dat 
men met een simpele commando 
de eigengemaakte (in dit geval 
met KOALA PAINTER) tekeningen 
op het scherm kan toveren. 

Het programma 

Het programma zelf is geschreven in ma¬ 
chinetaal, maar kan door een simpele B A- 
SlC-listing in het geheugen geladen wor¬ 
den. De KOALA PAINTER-tekeningen 
dienen wel op een diskette te staan. 

Type nu eerst listing 1 in ( zie kader on¬ 
der aan de pagina). Het programma heeft 
een ingebouwde CHECKSUM dus fou¬ 
ten in de DATA-regels kunnen makkelijk 
opgespoord worden. 

Vervolgens RUN je het programma. Het 
machinetaal-programma staat nu in het 


2000 FORL=0TO14 :CX=0 :FORD=0TOl5:READA:CX=CX+A:POKE49152+L*16+D,A:NEXTD 
2010 READA: IFAOCXTHENPRINT"ERROR IN LINE" ; 2040+ (L* 10 ) : STOP 
2020 NEXTL:END 

2040 DATA76,49,192,76,14,192,76,121,192,234,234,234,234,234,169,6,2333 
2050 DATA141,33,208,173,24,208,41,247,141,24,208,173,17,208,41,223,2110 
2060 DATA141,17,208,173,22,208,41,239,141,22,208,32,68,229,96,234,2079 
2070 DATA234,32,253,174,162,15,169,63,157,239,192,202,208,250,32,158,2540 
2080 DATA173,32,143,173,160,0,177,100,133,251,200,177,100,133,252,200,2404 
2090 DATA177,100,133,253,160,0,177,252,153,247,192,200,196,251,208,246,2945 
2100 DATA234,234,162,8,160,1,32,186,255,169,15,162,240,160,192,32,2242 
2110 DATA189,255,169,0,32,213,255,234,234,169,0,160,96,133,95,132,2366 
2120 DATA96,169,64,160,127,133,90,132,91,169,64,160,63,133,88,132,1871 
2130 DATA89,32,191,163,169,64,160,127,133,95,132,96,169,40,160,131,1951 
2140 DATA133,90,132,91,169,232,160,7,133,88,132,89,32,1,91,163,169,2011 
2150 DATA40,160,131,133,95,132,96,169,16,160,135,133,90,132,91,169,1882 
2160 DATA232,160,219,133,88,132,89,32,191,163,234,234,169,1,141,33,2251 
2170 DATA208,173,24,208,9,8,141,24,208,173,17,208,9,32,141,17,1600 


Listing 1 
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LISTING 3 

****************sp ron g a d re ss en 


geheugen vanaf adres 49152 en de BA- 
SlC-listing heb je nu niet meer nodig dus 
die kun je met een NEW verwijderen. 

De commando’s 

Met de volgende drie commando’s kun je 
in je BASIC-programma de diverse ma- 
chinetaal-onderdelen oproepen. Vooraf 
moet je wel je diskette met daarop de di¬ 
verse KOALA PAINTER-tekeningen in 
je disk drive plaatsen. 

SYS 49152,"filenaam" 

De tekening wordt nu vanaf disk geladen 
en op het scherm geplaatst. ’Filenaam’ is 
natuurlijk de naam van je tekening (de¬ 
zelfde naam die je gebruikt hebt om hem 
via KOALA PAINTER te ’saven’). 

SYS 49155 

Het scherm wordt gewist en er wordt te¬ 
ruggekeerd naar tekst-mode. 

SYS 49158 

Mocht de tekening nog in het geheugen 
zijn dan wordt die weer op het scherm ge¬ 
bracht. De tekening hoeft dan niet weer 
opnieuw geladen te worden. 

Het is misschien makkelijker om adres 
49152 in een variabele op te slaan: 

1.0 V=49152 

20 SYS V, "filenaam" : REM 
SCHERM AAN 

30 SYS V+3: REM SCHERM UIT 
40 SYS V+6:REM SCHERM TERUG 

De volgende listing laat het resultaat nog 
eens zien. Type wel inplaats van 'file¬ 
naam' de gewenste tekeningnaam in en 
stop de juiste diskette in je drive. 

Toepassingen 

Je kunt natuurlijk op ieder moment zoveel 
tekeningen in het geheugen laden als je 
wilt. De oude tekening wordt namelijk 
simpelweg vervangen door de nieuwe. 
Het aantal gebruikte geheugen blijft dus 
hetzelfde. Ook hoeft je tekening niet in 
dataregels gezet te worden. 


10 

REM *** TEKENING LADEN 


* * * 


20 

SYS .49152, "FILENAAM" 


30 

FOR T=0 TO 3000:NEXT 

T 

40 

REM *** SCHERM UIT 



******* 


50 

SYS 49152+3 


60 

PRINT"TERUG NAAR TEKST” 

70 

FOR T=0 TO 3000: NEXT 

T 

80 

REM *** SCHERM AAN 



******* 


90 

3YS 49152+6 


100 

GOTO 100 



Listing 2 


• r 

cooo 

4C 

31 

CO 

JMP 

$C031 

, , 

C003 

4C 

0E 

CO 

JMP 

$C0QE 

. r 

C006 

4C 

79 

CO 

JMP 

$C07 9 

• / 

C009 

EA 



NOP 


. , 

C00A 

EA 



NOP 


• t 

C00B 

EA 



NOP 


. . 

C00C 

EA 



NOP 


. , 

C00D 

EA 



NOP 


* * *deel 

A**********scherm uit 

• f 

C00E 

A9 

06 


LDA 

#$06 

. , 

C010 

8D 

2.1 

DO 

STA 

$D02 1 

. , 

C013 

AD 

18 

DO 

LDA 

$D018 

• r 

CO 16 

29 

F7 


AND 

#$F7 

• r 

C018 

8D 

18 

DO 

STA 

$D018 

• / 

CO 1B 

AD 

11 

DO 

LDA 

$ D 011. 

. , 

CO IE 

29 

DF 


AND 

#$DF 

. , 

C020 

8D 

11 

DO 

STA 

$D011 

• r 

C023 

AD 

16 

DO 

LDA 

$D01 6 

. . 

C026 

29 

EF 


AND 

# $EF 

. , 

C028 

8D 

16 

DO 

STA 

$D01 6 

• / 

C02B 

20 

44 

E5 

JSR 

$E54 4 


;clear screen 



. , 

C02E 

60 



RTS 


• t 

C02F 

EA 



NOP 


• r 

CO 30 

EA 



NOP 


* * 

DEEL 

B****** filenaam halen 

* r 

C031 

20 

FD 

AE 

JSR 

$AEFD 


;komma? 





• r 

C034 

A2 

OF 


LDX 

# $ OF 

• r 

C036 

A9 

3F 


LDA 

# $ 3F 

. r 

C038 

9D 

EF 

CO 

STA 

$C0EF, X 

• r 

C03B 

CA 



DEX 


• r 

C03C 

DO 

FA 


BNE 

$ C 0 3 8 

• r 

C03E 

20 

9E 

AD 

JSR 

$AD9E 


;filenaam halen 


• r 

C041 

20 

8F 

AD 

JSR 

$AD8F 


;string? 





• r 

C044 

A0 

00 


LDY 

#$00 

• / 

C046 

BI 

64 


LDA 

($64),Y 

• / 

C048 

85 

FB 


STA 

$FB 

. , 

C04A 

C8 



INY 


• r 

C04B 

BI 

64 


LDA 

($64) , Y 

. , 

C04D 

85 

FC 


STA 

$FC 

. , 

C04F 

C8 



INY 


. , 

C050 

BI 

64 


LDA 

($64),Y 

. , 

C052 

85 

FD 


STA 

$FD 

. , 

C054 

A0 

00 


LDY 

#$00 

. , 

C056 

BI 

FC 


LDA 

( $ F C) , Y 

• r 

C058 

99 

F7 

CO 

STA 

$C0F7,Y 

. , 

C05B 

C8 



INY 


• r 

C05C 

C4 

FB 


CPY 

$FB 

. , 

C05E 

DO 

F6 


BNE 

$C056 

• f 

CO 60 

EA 



NOP 


• f 

C061 

EA 



NOP 


* * * 

DEEL 

q******** ******* laden 

. f 

CO 62 

A2 

08 


LDX 

#$08 

• t 

CO 64 

A0 

01 . 


LDY 

#$01 

. , 

CO 66 

20 

BA 

FF 

JSR 

$FFBA 


; disk 





• r 

CO 69 

A9 

OF 


LDA 

#$0F 

• r 

C06B 

A2 

F0 


LDX 

# $F0 

• r 

C0 6D 

A0 

CO 


LDY 

#$C0 

. , 

C0 6F 

20 

BD 

FF 

JSR 

$FFBD 


; filenaam 




. , 

CO 72 

A9 

00 


LDA 

#$0Q 


. 

C074 

20 

D5 

FF 

JSR 

$FFD5 


i laden 





. 

CO 77 

EA 



NOP 


. , 

CO 7 8 

EA 



NOP 


** 

*DEEL 

D*** 

* * 

*** 

**copieeren 

. 

CO 7 9 

A9 

00 


LDA 

#$00 

• f 

C07B 

A0 

60 


LDY 

#$60 

. 

C07D 

85 

5F 


STA 

$ 5F 

. 

C07F 

84 

60 


STY 

$60 

. , 

CO 81 

A9 

40 


LDA 

#$40 

• / 

CO 83 

A0 

7F 


LDY 

#$7F 

* t 

C085 

85 

5A 


STA 

$5A 

. 

CO 87 

84 

5B 


STY 

$5B 

• t 

C089 

A9 

40 


LDA 

#$40 

* f 

C08B 

A0 

3F 


LDY 

# $ 3F 

• r 

C08D 

85 

58 


STA 

$58 

• r 

C08F 

84 

59 


STY 

$59 

. 

CO 91 

■ 20 

BF 

A3 

JSR 

$A3BF 


/tekening verplaatsen 

. 

CO 94 

A9 

40 


LDA 

#$40 

• r 

CO 96 

A0 

7F 


LDY 

#$7F 

• f 

CO 98 

85 

5F 


STA 

$ 5F 

• r 

C0 9A 

84 

60 


STY 

$60 

• f 

C09C 

A9 

28 


LDA 

#$28 

• f 

CO 9E 

A0 

83 


LDY 

#$83 

. , 

C0A0 

85 

5A 


STA 

$5A 

• r 

C0A2 

84 

5B 


STY 

$5B 

• r 

C0A4 

A9 

E8 


LDA 

#$E8 

. 

C0A6 

A0 

07 


LDY 

#$07 

. 

C0A8 

85 

58 


STA 

$58 

' f 

CO AA 

84 

59 


STY 

$59 

. f 

CO AC 

20 

BF 

A3 

JSR 

$A3BF 


;kleuren 

ve 

rplaatsen 

• f 

CO AF 

A9 

28 


LDA 

#$28 

• r 

C0B1 

A0 

83 


LDY 

#$83 

• t 

C0B3 

85 

5F 


STA 

$ 5F 

• f 

C0B5 

84 

60 


STY 

$60 

. , 

C0B7 

A9 

10 


LDA 

#$10 

. , 

C0B9 

A0 

87 


LDY 

#$87 

• / 

CO BB 

85 

5A 


STA 

$ 5A 

. , 

C0BD 

84 

5B 


STY 

$ 5B 

. , 

C0BF 

A9 

E8 


LDA 

#$E8 

. , 

C0C1 

A0 

DB 


LDY 

# $DB 

• f 

C0C3 

85 

58 


STA 

$58 

. , 

C0C5 

84 

59 


STY 

$59 

. 

C0C7 

20 

BF 

A3 

JSR 

$A3BF 


;kleuren 

verplaatsen 

. , 

COCA 

EA 



NOP 


• r 

C0CB 

EA 



NOP 


***DEEL 

E**********scherm aan 

. , 

C0CC 

A9 

01 


LDA 

#$01 

• t 

C0CE 

8D 

21 

DO 

STA 

$D021 

. , 

C0D1 

AD 

18 

DO 

LDA 

$D018 

• f 

C0D4 

09 

08 


ORA 

#$08 

• f 

C0D6 

8D 

18 

ÖO 

STA 

$D018 

. 

C0D9 

AD 

11 

DO 

LDA 

$D011 

. , 

C0DC 

09 

2 0 


ORA 

#$20 

• / 

CODE 

8D 

11 

DO 

STA 

$D011 

. f 

COEl 

AD 

16 

DO 

LDA 

$D016 

. , 

C0E4 

09 

10 


ORA 

#$10 

. , 

C0E6 

8D 

16 

DO 

STA 

$D01 6 

. , 

C0E9 

60 



RTS 
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Dat maakt het programma handig voor 
b.v. zelfgeschreven adventures. De mees¬ 
te commerciële adventures-programma's 
maken gebruik van tekeningen die al in 
het programma zelf zitten. Dat maakt het 
aantal tekeningen natuurlijk beperkt. 
Door echter je vele tekeningen op een 
aparte schijf te zetten kun je nu op ieder 
gewenst moment de juiste tekening laden. 
Je kan natuurlijk ook meer serieuse pro¬ 
gramma's van graphics voorzien. 

De listing 

Voor de machinetaal-programmeurs 
volgt nu de listing van het programma. 

De werking 

Ik heb het programma in diverse delen 
gesplitst. Hier volgt in het kort een be¬ 
schrijving van de werking. 

Deel A: 

Hier wordt op de normale manier het 
scherm uitgeschakeld. Voor degene die 
niet bekend zijn met de werking van BIT- 
MAP-MODE, zie de PROGRAMMER ’ S 
REFERENCE GUIDE. ’JSR $E544’ is 
een KERNAL-routine en de machinetaal- 
versie van CLR/HOME. Het wist dus het 
scherm (die staat namelijk vol met kleu¬ 
rencodes). 

Deel B: 

De ingevoerde filenaam wordt binnenge¬ 
haald. In de inhoudsopgave zie je behalve 
de filenaam nog meer tekens die KOALA 
PAINTER zelf gebruikt om de diverse te¬ 
keningen uit elkaar te houden. Deze te¬ 
kens hebben wij niet nodig. D.m.v. de 'jo¬ 
ker’, het vraagteken, slaan wij die tekens 
over. De file wordt dus als b.v. 
“SEARCH1NG FOR 

????????NAAM???” geladen. De zo ver¬ 
anderde filenaam wordt vanaf adres 
$C0F0 opgeslagen. 

Deel C: 

Het laden van de file zelf. Achtereenvol¬ 
gens wordt het devicenummer (8), het se¬ 
cundaire devicenummer (1), de lengte 


van de filenaam (15 inch vraagtekens) en 
het adres van de filenaam ($C0F0) gege¬ 
ven. 

Deel D: 

De KOALA PAINTER-tekening is als 
volgt opgeslagen: 

24576-32575 : Tekening 
32576-33575 : Multi-coloursl+2 
33476-34575 : Multi-colour 3 

Wij gebruiken het echter als volgt. 

8192-16191 : Tekening 
1024-2023 : Muiti-colours 1+2 

55296-56295 : Multi-colour 3 

Deze routine kopieert de diverse delen op 
de juiste plaats. Ik gebruikte hiervoor een 
routine uit BASIC-ROM. Laten we de 
werking daarvan een bekijken met als 
voorbeeld $C079-$C091 


C07 9 

A9 

00 

LDA 

#$00 

C07B 

A0 

60 

LDY 

#$60 

C07D 

85 

5F 

STA 

$5F 

C07F 

84 

60 

STY 

$60 


C081 

A9 

40 

LDA 

#$40 

C083 

A0 

7F 

LDY 

#$7F 

C085 

85 

5A 

STA 

$5A 

C087 

84 

5B 

STY 

$5B 

C08 9 

A9 

40 

LDA 

#$40 

C08B 

A0 

3F 

LDY 

#$3F 

C08D 

85 

58 

STA 

$58 

C08F 

84 

59 

STY 

$59 

C091 

20 

BF A3 

JSR 

$A3BF 


Eerst wordt adres $6000, het oude blok 
geheugen in $5F/$60 opgeslagen. Dan het 
eindadres+1 van het oude blok in 
$5A/$5B en dan het eindadres+1 van het 
NIEUWE blok in $58/$59. Tenslotte 
wordt d.m.v. ’JSR A3BF' de verschui- 
froutine aangeroepen. Het resultaat is dat 
alles van $6000-$7F3F gecopieerd wordt 
naar een blok geheugen met als eindadres 
$3F3F. Het beginadres van dat nieuwe 
blok moetje dus zelf berekenen. 

Deel E: 

Het Bitmap-scherm wordt ingeschakeld 
en de tekening is te zien. 

Verdere voorstellen 

De tekening is nu opgeslagen vanaf adres 
8192, maar dat kan makkelijk verschoven 
worden naar een hogere geheugenplaats 
zodat je meer geheugen voor je eigen pro¬ 
gramma overhoudt. Nu je weet waar je te¬ 
kening zich bevind kan je er natuurlijk 
nog veel meer mee doen. Je zou b.v. een 
programma kunnen schrijven om je teke¬ 
ning af te drukken op je printer. Ook zou 
je je tekening als SPRITE-editor kunnen 
gebruiken door een tekening te vullen met 
kleine tekeningen van 24x21 grootte. 
Door dan die tekeningen te copieeren 
naar je SPRITE-adressen kun je b.v. een 
wandelend voetbalpoppetje samenstellen. 

Succes ermee 

Rene Janssen 
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Basis Basic (25) 


N a een lange periode van on¬ 
derbreking gaan verder met 
onze uitleg van de diverse Basic- 
opdrachten en functies in onze 
Basic-cursus. Op dit moment zijn 
we bezig om in alfabetische volg¬ 
orde de meeste, algemene com¬ 
mando’s in Basic aan een nader 
onderzoek te onderwerpen. Wat 
hier door Jan Bodzinga wordt be¬ 
handeld is in grote lijnen niet al¬ 
leen te gebruiken op de Commo- 
dore-reeks, maar kan ook worden 
toegepast in iedere andere com¬ 
puter die met Basic overweg kan, 
al is de basis wel bedoeld voor de 
Commodore pur sang. 

oewel we er even tussenuit zijn geweest 
met deze serie, pakken we nu de draad 
weer op waar we gebleven zijn. Zoals de 
trouwe lezers ongetwijfeld zullen weten, 
hebben we in de laatste aflevering een be¬ 
gin gemaakt met een alfabetische reis 
langs alle Basic -opdrachten en -functies. 
We zijn op dit moment nog niet al te ver, 
want na de functies ABS, AND en ASC 
gaan we nu verder met een trigometrische 
functie : ATN. 


ATN 

Type : BASIC functie, reken (wis) kundig 
Doel : Het berekenen van de arctangens 
van het argument dat tussen de haken aan 
de functie ATN wordt meegegeven. 

Dit argument kan een wiskundige expres¬ 
sie zijn, zowel positief als negatief. 

De hoek die door ATN wordt gemeten, is 
de hoek van een rechthoekige driehoek, 
die ligt tegenover de zijde waarvan de 
lengte door het argument wordt bepaald. 

In het bovenstaande voorbeeld wordt dus 
de linkerhoek door ATN berekend, waar¬ 
bij de rechterzijde (X) zorgt voor het ar¬ 
gument. 

De uitkomst van deze functie wordt gege¬ 

ven in radialen. 


Basic van A tot Z. 


Mode : ATN kan zowel in de programma- 
mode als rechtstreeks vanaf het toetsen¬ 
bord als functie worden ingetoetst. 

Syntax : ATN(rekenkundige expressie) 
De expressie tussen de haken moet uitein¬ 
delijk te herleiden zijn tot een numerieke 
waarde. Een string of foute expressie 
heeft een foutmelding tot gevolg, zoals 
’ SYNTAX ERROR’, TYPE MIS¬ 
MATCH’ of ’DIVISION BY ZERO ER¬ 
ROR’. Als de uitkomst van de expressie 
te groot is, dan ook laat de Commodore 
het afweten met een 'OVERFLOW ER¬ 
ROR’. De maximale waarde die tussen de 
haken kan worden gezet, heeft te maken 
met het grootste getal dat door de floating 
point accumulator van de computer kan 
worden verwerkt en ligt ongeveer rond de 
1.7E38. Een fors getal dus, ruim vertaald 
17 met 37 nullen erachter. Iets in de mil¬ 
jarden waarvan de schrijfwijze beter voor 
te stellen valt dan de uitspraak. 

De ATN()-functie kan worden gebruikt 
aan de rechterkant van een statement 
waarin waarden aan variabelen worden 
toegekend (assignments) ofwel na een lo¬ 
gische expressie als bijvoorbeeld IF. Ook 
na een PRINT-opdracht kunnen we de 
functie ATN() tegenkomen. 

Gebruik 

Het zal voor de normale computer-pro- 
grammeur niet erg vaak voorkomen, dat 
de functie ATN() wordt gebruikt. Hoe¬ 
wel, voor zover ik heb kunnen nagaan, al 
vanaf de eerste versies Basic in 1962/65 
deze functie tot de standaardset behoort 


wordt er weinig gebruik van gemaakt. Ik 
moet dan ook eerlijk bekennen, dat voor 
mij het gebruik van deze ArcTaNgens 
ook niet zo vaak -zeg maar: nooit- voor¬ 
komt. Maar de mogelijkheid bestaat, en 
als je wat dieper doordenkt is het hele¬ 
maal niet zo gek, om wat met deze functie 
te stoeien. Zeker de fervente wiskundigen 
onder ons zullen zich hier wel sterk voor 
willen maken. 

Om het gebruik van de ATN-functie wat 
toe te lichten hierbij een paar voorbeel¬ 
den: 

I PRINT ATN(0) 

Hierbij wordt de arctangens gevraagd van 
0, ofwel, gezien ons voorbeeld van een 
lijn met lengte 0, dus niet bestaand. De 
uitkomst hiervan is dan ook natuurlijk 0 
radialen. 

Ia PRINT ATN(20) 

De uitkomst van deze bewerking is 
1.520838 rad. en deze uitkomst ligt ergins 
in het midden van de mogelijke range. 
Zoals de meesten en zeker de wiskunste¬ 
naars onder ons wel zullen weten, kan de 
uitkomst (in radialen) alleen liggen tussen 
-pi/2 en +pi/2 radialen. Dit komt, omdat 
er in het geval van de arctangens nooit 
sprake kan zijn van een hoek groter dan 
+/- 90 graden. Met ’pi’ wordt de constan¬ 
te bedoeld, die een waarde heeft van on¬ 
geveer 3.141592 met daarachter nog een 
hele serie decimalen. 

Ib PRINT ATN(-1.7E38) 
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Door de uitkomst van ATN met dit argu¬ 
ment (1.7E38) zien we, dat we hiermee de 
maximale waarde voor ATN hebben be¬ 
reikt, dus 'oneindig’ als argument ofwel 
-1.570796 in radialen. We zitten dan ook 
heel dicht bij de hoek van 90 graden. We 
zien dit direct, als we de driehoek in het 
voorbeeld bekijken. Hoe langer we de lijn 
X maken, hoe groter de hoek ertegenover 
wordt, waarvan de arctangens berekend 
wordt. De hoek kan echter nooit groter 
worden dan een (bijna) rechte hoek, en 
zelfs dan is de lengte van lijn X al tot het 
oneindige opgelopen. Omgezet in radia¬ 
len komen we daardoor op pi/2. Gaan we 
nog verder, door bijvoorbeeld 1.8E38 als 
argument aan ATN mee te geven, dan re¬ 
tourneert de Commodore een 'OVER¬ 
FLOW ERROR’. Dit komt echter niet zo¬ 
zeer van de ATN-functie, die loopt tot in 
het oneindige verder, maar door de bo¬ 
vengrens van de mogelijke getallen die 
met een computer kunnen worden ver¬ 
werkt. 

II Y= ATN(X) * 180/pi 

Deze ATN-functie laat zien, hoe de radia¬ 
le uitkomst kan worden omgezet in gra¬ 
den. Voor de waarde 1.570796 van X 
krijgen we voor Y de waarde 89.9979, 
waardoor we al erg dicht bij een rechte 
hoek uitkomen. De uitkomst van deze re- 
kenarij is echter al degelijk gekleurd door 
de afrondingen die de computer er wel op 
los moet laten, maar de principes lijken 
me duidelijk. 

III XX = -ATN(YV/ZV) 

YY = -ATN(XV/ZV) 

Op de manier van voorbeeld III kan men 
aan de hand van coördinaten YV en XV 
en de derde dimensie coördinaat ZV een 
punt in de ruimte berekenen en bijvoor¬ 
beeld naar een plotter sturen, of gebrui¬ 
ken in het werken met CAD-applicaties. 
Veel van dit soort moderne software 
maalkt dan ook wel degelijk gebruik van 
de arctangens, al zal dit niet primair in 
Basic gebeuren. 

Het laatste voorbeeld komt uit een boek 
over het berekenen van kompaskoersen 
en afstanden: 

IV AR = ATN( 

(W1-W2)/(N1-N2) ) 

W1,W2,N1,N2 zijn hierbij coördinaten 
van twee verschillende kompasrichtin¬ 
gen, waardoor met hulp van de ATN- 
functie de juiste afstand en richting kan 
worden berekend. 

Al met al toch nogal wat mogelijkheden, 
al liggen de meeste van deze niet zo erg 
voor de hand. Niettemin goed om ook de 



ATN-functie ergens in je achterhoofd te 
houden, voor het geval een dergelijke be¬ 
rekening nog eens nodig is. 

Als laatste wil ik hierbij nog opmerken, 
dat ook bij statistici de ATN nog wel in 
ere wordt gehouden, omdat in een bijzon¬ 
der kleine omvang, tussen -1.57 en +1.57 
het met hulp van de ATN-functie moge¬ 
lijk is geworden de complete getallen¬ 
reeks uit te drukken. Zodoende kun je be¬ 
schikken over een zeer geconcentreerde 
wijze van het opslaan van getallen, al is 
natuurlijk de indicatie nogal grof. De 
door ATN berekende waarden kunnen 
dan uiteraard weer worden teruggezet 
naar de waarde van hun oorspronkelijk 
argument. 

Werkwijze 

De manier waarop de computer de arctan¬ 
gens berekent, is nogal ingewikkeld en 
gaat uit van een serie van 12 in het ROM- 
geheugen van de Basic interpreter aanwe¬ 
zige constanten. 

Aan de hand van diverse berekeningen 
tussen deze 12 vaste getallen en het aan 
ATN meegegeven argument wordt uitein¬ 
delijk de arctangens berekend. De waarde 
van ATN ligt tussen Pi/2 en -Pi/2 (1.57) 
en wordt uitgedrukt in radialen. 

Het omzetten van radialen naar graden 
kan door de uitkomst van ATN te delen 
door het getal Pi, waarna het geheel met 
180 moet worden vermenigvuldigd, zie 
hiervoor ook voorbeeld II. 

Opmerking 

Als kanttekening wil ik nog opmerken, 
dat de ATN-functie beslist niet moet wor¬ 
den verward met de afkorting ATN die 
wordt gebruikt bij de I/O met diverse 
poorten, zoals de RS-232C en de IEEE 
bus. ATN betekent in dat geval 'ATTEN¬ 
TIE’ en dit heeft niets te maken met de 
arctangens. 

CHR$ 

Type: Basic functie, string 
met numeriek argument. 


Doel 

De functie CHR$() bewerkt ieder nume¬ 
riek argument tussen 0 en 255 tot een 
string (alfa-numeriek) met een lengte van 
1 karakter. 

De door CHR$ gevormde string bevat het 
met het argument overeenkomstige teken 
| in de CBM-ASCII tabel. Hiermee is het 
i mogelijk bepaalde ’stuur’codes zoals de 
RETURN-code en aanhalingstekens te 
kunnen bewerken en printen, die anders 
onmogelijk kunnen worden toegepast. 

Mode : Zowel in direkte (keyboard) als 
programma-mode kan de functie CHR$() 
worden gebruikt. 

Syntax : CHR$(numerieke 
expressie) 

De uitdrukking tussen de haakjes, het ar¬ 
gument, moet uiteindelijk kunen worden 
geëvalueerd tot een getal dat ligt tussen 0 
en 255, de beide uiterste waarden meege¬ 
rekend. Als het geen integer getal is, zal 
het fractionele gedeelte (achter de kom¬ 
ma) worden weggelaten, zonder dat hier¬ 
bij van afronding op de wiskundige ma¬ 
nier sprake is. Dus CHR$(-0.1) en 
CHR$(500) en CHR$(A3$) geven alle 
een foutmelding op de computer. Vooral 
TLLEGAL QUANTITY’ is een veel 
voorkomende melding bij deze functie. 


Gebruik 

Zoals reeds in de definitie opgemerkt, 
kunnen we deze functie heel goed gebrui¬ 
ken om bepaalde codes, als bijvoorbeeld 
de carriage-return te bewerken. Met name 
de RETURN-code (CHR$(13)) is een 
goed voorbeeld, omdat we binnen Basic, 
zoals bijna bij alle programmeertalen, de 
RETURN-toets gebruiken om een regels 
tekst of programma in te typen, terwijl de¬ 
zelfde RETURN wordt benut om het ein¬ 
de van een INPUT aan de computer door 
te geven. Of het moment dat we normaal 
gesproken een RETURN-code naar de 
printer willen sturen en we drukken hier¬ 
bij tijdens het programmeren op de RE- 
: TURN-toets, dan gebeurt er niets anders, 
dan dat de programmaregel op dat mo¬ 
ment wordt afgesloten en de cursor op 
een nieuwe regel staat te knipperen. Wat 
we echter voor ogen hadden, zal met de 
niet afgemaakte programmaregel dan ook 
niet kunnen gebeuren. 

Een paar voorbeelden kunnen dit prachtig 
toelichten: 

I PRINT#4, CHR$(13) 

Hiermee wordt een RETURN-code naar 
de printer gestuurd. Daardoor wordt een 
nieuwe regel op papier begonnen. We 
kunne dezelfde manier gebruiken om op 
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het scherm één of meer nieuwe regels te 
maken : 

Ia +FOR I = 0 TO 12 : PRINT 
CHR$(13): NEXT 

Dertien nieuwe, schone regels krijgen we 
op het scherm, door bovenstaande com- 
mando-functiereeks uit te voeren. 

II PRINT CHR$(7) 

De zevende code in de ASCII-tabel wordt 
hiermee 'geprint’. Voor ingewijden bete¬ 
kent dit, dat er een bel gaat rinkelen, an¬ 
deren moeten maar eens proberen wat er 
in de computer aan het werk wordt gezet 
door deze code te printen op scherm of 
printer. 

III T $ = CHR$ (34) + "JARIG 

ZIJN " + CHR$(34) 

PRINT T$ 

In dit voorbeeld wordt de string T$ ge¬ 
vormd door de tekst 'JARIG ZIJN’ die in 
het programma al tussen “ ” (aanhalings¬ 
tekens) staat. Om ook op de printer (of het 
scherm) geforceerd aanhalingstekens te 
kunnen printen, moeten we uit de ASCII- 
tabel de code zoeken voor het “-teken. Dit 
is ASCII-34. Door nu een string-optelling 
te maken, met de tekst tussen twee 
CHR$(34) codes, krijgen we uiteindelijk 
het gewenste resultaat. 

IV OPEN 4,4:PRINT#4, 

CHR$(27); CHR$(65);12 : 
CLOSE 4 

Dit voorbeeld komt uit de handleiding 
voor een matrixprinter, waardoor via Ba¬ 
sic de printer wordt ingesteld met een be¬ 
paald aantal regels per inch. In dit geval 
wordt aan de hand van de numerieke 
waarde 12, het laatste argument, de regel- 
spatiëring gezet op 12/72 van een inch, 
ofwel 1/6. Wijziging van dit getal geeft 
uiteraard effect op de printer. 

CHR$(27) geeft hierbij de string-variant 
van de ESC-toets, terwijl CHR$(65) ook 
zou kunnen worden vervangen door een 
’a’, maar dit geeft wat problemen bij de 
ASCII-conversie, die -zoals bekend- bij 
de Commodore nogal afwijkt van de stan¬ 
daard, waaraan ook de meeste matrixprin¬ 
ters zich gelukkig houden. 

V NS= CHRS(32)+CHR$(32)+N$ 

De string N$ wordt door voorbeeld V ge¬ 
wijzigd in dezelfde string, echter vooraf¬ 
gegaan door twee spaties, waar dit dan 
ook voor nodig mag zijn. Het geheel kan 
natuurlijk net zo goed als volgt worden 
geprogrammeerd: 

V &N$ " " + N$ 



en is daardoor wel korter, maar zeker niet 
overzichtelijker en duidelijker geworden. 
Het kan zeker nuttig zijn om bepaalde 
strings op deze manier op te lengen, al 
was het maar om alle strings op dezelfde 
lengte te krijgen. 

VI FOR ï = 32 TO. 255 : 

PRINT CHR$(I);CHR$(32);: 
NEXT 

Op het eerste gezicht zou je het niet zeg¬ 
gen, maar deze regel uit voorbeeld VI 
print de gehele (printbare) ASCII-tabel 
op het scherm. Een paar aanvullingen 
voor de layout en je hebt je eigen ASCII- 
controle op scherm of printer. 

Voor de volledigheid zullen we de AS- 
CII-codes die niet te printen zijn en toch 
standaard-acties veroorzaken, hierbij 
even op een rijtje zetten : 


Waarde 

Naam 

Actie 

03 

STOP 

Break in 
programma 

07 

BELL 

Beep of bel in 
printer/computer 

08 

BS 

Backspace (cursor 
terug) 

09 

HTAB 

Florizontal TAB 

10 

LF 

Nieuwe regel, 
cursor zelfde plek 

11 

VT 

Vertikale TAB 

12 

FF 

Nieuw blad / 
scherm leeg 

13 

CR 

Carriage RETURN 

14 

TXT 

Selectie tekst/ 
grafische mode 

17 

CD 

Cursor neer 

18 

REV 

Reverse schrift aan 

19 

CH 

Cursor 

naar links boven 

20 

DCHR 

Weghalen karakter 

21 

DLINE 

Weghalen regel 

22 

EREND 

Weghalen tot eind 

27 

ESC 

Escape code 

29 

CR 

Cursor naar rechts 


Er is nog wel een serie mogelijkheden om 
de ASCII-codes van 0 tot 32 in te vullen, 
maar bovenstaande opsomming komt het 
dichtst bij de indertijd door Commodore 
gedefinieerde karakterset. Vooral bij het | 


gebruik van niet-Commodore printers, 
m.n. de Hewlett-Pacard Laserjet en al zijn 
compatibelen kan niet zonder het gebruik 
van de CHR$()-functie deze apparaten 
naar behoren laten werken. 

VII FOR J = 20.48 TO 3000 
PRINT CHR$(REEK(J)); 

NEXT 

Op deze manier wordt het mogelijk een 
gedeelte uit het computergeheugen, in dit 
geval de adressen 2048 tot 3000 in een 
redelijk leesbare vorm op het scherm te 
zetten. Ook hier een goed gebruik van de 
functie CHR$(). Het overige van deze 
functie spreekt voor zichzelf. 

Werkwijze : In de computer wordt de ver¬ 
werking van CHR$() als volgt gedaan. 
Als eerst wordt de inhoud van het argu¬ 
ment gecontroleerd op geldigheid (0- 
255). Vervolgens wordt in het computer¬ 
geheugen ruimte voor een nieuwe string 
gemaakt, met een lengte van 1 byte. De 
enkele Byte uit de karakterrom-ASCII ta¬ 
bel wordt op dit stringadres gezet. Is de 
string aan een variabele toegekend 
(X$=CHR$(33)), dan worden de pointers 
voor deze stringnaam gecorrigeerd, zodat 
ze wijzen naar de stringadressen, zojuist 
gealloceerd door CHR$(). Anders wor¬ 
den de gegevens doorgegeven aan de ver- 
volgroutines, zoals bijvoorbeeld bij de 
opdracht PRINT CHR$( 12+33-1 *X) 

Opmerking 

Ook bij lBM-compatible computers en 
andere Basic-dialecten wordt deze ftie 
gebruikt. 

Alleen moet daarbij rekening worden ge¬ 
houden met een andere opbouw van de 
ASCII-tabel. 

Er is wat het de Commodore betreft nog 
een serie opmerkingen te maken die men 
voor een juiste behandeling van deze 
functie nodig heeft. 

Als eerste wil ik hierbij noteren, dat de 
functie CHR$() het omgekeerde bewerkt 
van de functie ASC. 

De programmaregel : 

X = ASC (X$) : X$ = CHR$ (X) 

ofwel : 

X = ASC(CHR$(X)) 

laten dit maar al te duidelijk zien. Daar¬ 
door kan de functie CHR$() ook goed 
worden gebruikt om een conversie te be¬ 
werken van schermcodes naar het printen 
van dezelfde karakters of vice versa. 

Een fenomeen betreft de waarde NUL. 
CHR$(0) bekleedt daarom een heel spe¬ 
ciale plek in deze functie. 

Probeer maar eens PRINT CHR$(0 ), dan 
zie je niets bijzonders op het scherm, 
maar LEN (CHR$(0)) evalueert wel de¬ 
gelijk tot 1. 
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We kunnen, hierop voortbordurend een 
aardig, slimme en snelle beveiliging op 
touw zetten, want ook de regel ; 

X$ = "123"+CHR$(0)+"456" 

print als “ 123456 ” maar bij het opvragen 
van LEN(X$) krijgen we wel degelijk 7 
als resultaat. Iets wat bijna niemand in de 
gaten zal hebben, als daar wat mee wordt 
gegoocheld. Ook een functie als VAL(X$) 
komt in dat geval niet verder dan een ant¬ 
woord 123 en dat verwacht niemand. Pro¬ 
beer maar eens en je zult verbaasd zijn 
over het resultaat en de moeite die iede¬ 
reen krijgt om een goed opgezette routine 
op deze wijze te kunnen kraken. 

Een laatste opmerking heeft ook betrek¬ 
king op CHR$(0). maar dan in de vorm 
van een vergelijking. Naar de mens ge¬ 
sproken zou CHR$(0) identiek moeten 
zijn met de nulstring ofwel maar een 
eenvoudige vergelijking PRINT 
CHR$(0) > evalueert tot FALSE, iets 
wat niet geheel wordt verwacht. 

CLOSE 

Type :Basic commando, 

Input /Output 

Doel 

Met CLOSE wordt de dataoverdracht via 
één van de input/output kanalen van de 
computer afgesloten. Tegelijk wordt het 
bestand en zijn attributen verwijderd uit 
de file-I/O-tabellen in het computerge¬ 
heugen. Met files die uitsluitend betrek¬ 
king hebben op toetsenbord en scherm, 
wordt door het uitvoeren van de CLOSE- 
opdracht geen verdere actie ondernomen. 
Cassette-bestanden die uitsluitend open 
waren in de READ-(lees-)tnodus onder¬ 
gaan hetzelfde lot. 

Bij files open in READ/WRITE 
(lees/schrijf-)modus wordt voor het slui¬ 
ten nog een NUL-byte weggeschreven, 
om daarmee het eind van het file aan te 
geven. 

Bij een open (cassette)bestand, waarvan 
het secundaire adres de waarde 2 heeft, 
wordt bij CLOSE ook een ’Tape-header’ 
op de cassette weggezet en tevens een 
END-OF-TAPE markering op de cassette 
aangebracht. 

Bij het gebruik van CLOSE in samenhang 
met CBM-hardware, als bijvoorbeeld de 
1541 diskdrive, wordt aan de hand van 
deze opdracht een END-OF-FILE marke¬ 
ring meegeschreven in het laatste blok 
van het bestand op de diskette. Daardoor 
wordt het later teruglezen van de ketting 
van blokken Waaruit dit file bestaat, op 
het juiste moment gestopt. Bij niet-Com- 
modore hardware dient het CLOSE com¬ 
mando door de specifieke hardware op 
een eingen manier te worden geïnterpre¬ 
teerd en uitgevoerd. 


Mode : Zowel in programmamode, als di- 
rekt vanaf het toetsenbord kan het CLO- 
SE-commando worden gebruikt. 

Syntax : CLOSE LF; CLOSE 
>numerieke uitdrukking® 

Na CLOSE komt als parameter een ex¬ 
pressie die het logische filenummer aan¬ 
duidt. Deze expressie moet uiteindelijk 
een waarde hebben die ligt tussen 1 en 
255, waarbij een eventueel fractioneel ge¬ 



deelte in de expressie naar beneden wordt 
afgerond. Er volgt bij een niet bestaand 
file geen foutmelding. CLOSE gebruikt 
bij de verwerking alleen de eerste para¬ 
meter. Eventueel volgende parameters 
worden door CLOSE niet onderkend en 
in het programma tijdens de uitvoer dom¬ 
weg genegeerd. 

Gebruik 

Het werken met CLOSE is tamelijk een¬ 
voudig en zeker recht voor z’n raap. 

In principe komt het erop neer, dat een 
bestand naar disk, tape of printer eerst 
met een OPEN-opdracht moet worden 
geopend. Daarmee wordt (door de pro¬ 
grammeur) een logisch filenummer aan 
het bestand toegekend. Aan de hand van 
dit nummer blijven de diverse lees- en 
schrijfopdrachten ook voor het program¬ 
ma en de Basic-interpreter herkenbaar als 
behorend bij het (open) bestand met het 
genoemde LF-(logical file) nummer. 

Als er geen actie meer hoeft te worden 
uitgevoerd met een bepaald open bestand, 
dan wordt de ruimte die dit bestand in¬ 
neemt in het computergeheugen vrijge¬ 
maakt voor andere doeleinden en nieuwe 
bestanden door het CLOSE-commando 
uit te voeren. 

Bovendien zorgt de uitvoer van de CLO- 
SE-opdracht, dat eventueel nog niet ver¬ 
werkte buffers van het te sluiten bestand 
voor de afwerking nog naar de juiste plek 
op disk, tape of printer worden weggezet, 
zodat geen gegevens verloren gaan. Bij 
het weglaten van CLOSE kan het daar¬ 


door heel goed gebeuren, dat een bestand 
onvolledig op de disk staat weggeschre¬ 
ven, omdat na de laatste schrijfopdracht 
de computer bijvoorbeeld werd uitgezet, 
voordat een CLOSE-commando kon wor¬ 
den uitgevoerd. Daardoor was geen gele¬ 
genheid meer om bijvoorbeeld de disk-di- 
rectory naar behoren bij te werken, waar¬ 
door deze onvolledigheid kan ontstaan. 
Dergelijke bestanden krijgen in veel ge¬ 
vallen een mee tijdens de listing van 
de directory, maar dit blijkt niet in alle 
commodore-gevallen op te gaan. 

I OPEN 1,1,1, "FILE": 

PRINT #1,"Dit is TEKST" : 

CLOSE 4 

Op bovenstaande wijze wordt een volle¬ 
dig bericht "Dit is TEKST" naar een cas- 
settebestand gestuurd. Hoe het werken 
met OPEN en PRINT# in z’n werk gaat, 
zullen we uitvoerig behandelen bij de be¬ 
treffende commando's, vooralsnog lijkt 
het me voldoende te vermelden, dat met 
het OPEN-commando een bestand met 
(in dit geval) LF-nummer 1 naar de cas¬ 
sette (device 1) wordt geopend. Zoals je 
kunt raden staat de 3e parameter (1) voor 
het secundaire adres van dit bestand. Na 
de opening wordt via PRINT#LF = 
PRINT# 1 een tekst "Dit is TEKST” naar 
de tape gestuurd. Het geheel wordt als 
laatste afgesloten door de CLOSE-op- 
dracht. 

II CLOSE 1,2,"RERERE",3,12 

Dooreen bepaalde speling in de Basic-in¬ 
terpreter heeft deze opdrachtregel een 
identiek effect als het bovenstaande 
CLOSE 1. Alle parameters en tekst achter 
de LF-parameter wordt volledig door de 
computer genegeerd tot aan de eerstvol¬ 
gende opdracht-delimiter, hetzij een nieu¬ 
we regel of een dubbele punt. 

III PRINT#2,CHR$(13):CLOSE 2 

Hoewel al weer bijna antiek, was dit de 
manier waarop we een carriage return 
moesten genereren bij bestanden die met 
de Commodore Basic lager dan versie 4.0 
werden gemaakt. Het eenvoudige 
PRINT#4 werkte daarbij niet. Een weet 
voor iedereen die nog zo’n oud machien 
bezit, of wellicht te maken krijgt met heel 
antiek programma’s waarin deze regels 
maar al te vaak moesten worden gebruikt. 

IV OPEN 4,4 : PRINT #4, 

"BERICHT" : CLOSE 4 

Op deze manier wordt een tekst naar de 
printer verstuurd. 

Verder lijkt me hier geen woord Spaans 
bij, zeker als we dit voorbeeld vergelijken 
met voorbeeld I. waar een identieke pro- 
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Als een bestand onverhoopt niet kon wor¬ 
den afgesloten via CLOSE, omdat voor¬ 
tijds een STOP/BREAK of Syntax Error 
is uitgevoerd of opgetreden is het toch 
mogelijk een ’echte’ CLOSE opdracht te 
genereren, waardoor het bestand nog op 
een juiste wijze kan worden weggezet. 
Dit geldt natuurlijk alleen voor bestand en 
die ook voor WRITE zijn geopend. Be¬ 
standen waarvan alleen wordt gelezen, 
zijn in feite inactief op het medium, dat 
wil zeggen hun directe status verandert 





niet, maar wordt alleen gelezen. Bij een 
schrijfactie verandert wel veel in een be¬ 
stand, daarom is het een goede zaak, te 
zorgen dat het bestand hoe dan ook wordt 
geCLOSED. 

Bij het optreden van fouten kan men als 
eerste proberen een CLOSE LF-opdracht 
in de directe mode in te toetsen, mist het 
logische filenummer van het betrokken 
bestand bekend is. 

In latere versies van Commodore’s Basic 
kan men daarvoor ook de opdracht 
DCLOSE gebruiken, die sowieso alle 
open bestanden afsluit, wat echter ook 
niet altijd de bedoeling is. 

Een ander redmiddel bij foute nog open 
bestanden kan de volgende opdracht-se- 
quens zijn : 

OPEN 15,8,15 : CLOSE 15. 


Voor cassettebestanden is niet zoveel 
hoop meer, hoewel deze, als ze nooit zijn 
gesloten met CLOSE meestal nog wel op¬ 
nieuw zijn in te lezen. 

Het enige wat dan gebeurt, is dat de cas¬ 
setterecorder ook na het lezen van de laat¬ 
ste byte gewoon door blijft lopen. Proef¬ 
ondervindelijk is dit punt op de tape wel 
te benaderen. Stop gewoon de tape, con¬ 
troleer in het programma of alle gegevens 
die op het bestand horen te staan zijn in¬ 
gelezen, monteer een nieuwe tape en 
schrijf het gehele bestand op de 
juiste manier terug naar de 
schone tape, waarbij dan uiter¬ 
aard wel een CLOSE-opdracht 
moet worden uitgevoerd. 

Een laatste woord specifiek 
over disk-bestanden. Bij het 
werken met de diskdrive en be¬ 
standen op de diskette, kennen 
we twee soorten dataopslag. 
SEQuentiële en RELationele 
data. Wat betreft het CLOSE- 
commando ligt hierin geen ver¬ 
schil. 

Zoals bekend worden de data 
van deze bestanden per blok 
van 254 bytes op de disk gezet. 
Samen met twee bytes voor het 
adres van het volgende blok in 
de ketting krijgen we hierdoor 
precies de 256 bytes waaruit 
een disk-sector bij de Commo¬ 
dore bestaat. Deze pointers 
staan aan het begin van iedere 
sector en worden daar ook neer¬ 
gezet, voordat de rest van de ge¬ 
gevens in het blok wordt geschreven. 
Daardoor kan de diskdrive-processor en 
dus de computer bij het teruglezen bepa¬ 
len op welke sectoren van de diskette de 
data staan weggeschreven. Bij het uitvoe¬ 
ren van de CLOSE-opdracht wordt bij het 
schrijven van de laatste sector 254 bytes 
of minder, ook een EIND ADRES als $FF 
FF naar deze track-sector pointer gezet. 
Blijft de CLOSE opdracht echter achter¬ 
wege, dan staan als adres in het pointer- 
woord de twee bytes van een eventueel 
nieuwe track-sector opgeslagen, hoewel 
de data en de $FF FF ontbreken, doordat 
de CLOSE-opdracht is weggevallen. 

Dit is de reden waarom het nogal eens ge¬ 
beurt, dat twee bestanden op de diskette 
opeens als één geheel door de diskdrive 
en de computer worden beschouwd. 


cedure wordt gevolgd voor een cassette - 
bestand. Het enige verschil is het ontbre¬ 
ken van een secundair adres. Dit is het ge¬ 
val, omdat de printer alleen een 'luiste¬ 
rend’ apparaat is, dat zelf weinig meer 
aan gegevens naar de computer terug¬ 
stuurt dan op gezette tijden een status- 
byte, waaraan te zien valt hoe het met de 
printer ervoor staat. De primaire functie 
van een secundair adres richt zich juist op 
devices die veel kunnen retourneren. 
Maar daarover meer bij het OPEN-com- 
mando. 

V PRINT#4, CLOSE 4 

Op deze wijze dient een file te 
worden afgesloten, waarmee in 
de CMD-modus is gecommu¬ 
niceerd. Een belangrijke bug in 
het Commodore-programma. 

Erin geslopen zo rond 1978 en 
nog immer in stand gehouden, 
zover ik weet. Het uitvoeren 
van een CLOSE-opdracht laat 
bij de status CMD-mode het 
apparaat (printer of diskdrive) 
in een luisterende status achter, 
waardoor ook NA de CLOSE 
opdracht nogal wat gegevens 
verloren kunnen gaan. Vandaar 
dat met PRINT#4 eerst de op¬ 
dracht CMD4 moet worden op¬ 
geheven, waarna het bestand 
op de gebruikelijke manier kan 
worden afgesloten. 

Werkwijze 

Bij het ontmoeten van CLOSE in een pro¬ 
gramma wordt door de computer eerst de 
volgende LF-parameter ingelezen. Aan 
de hand van dit nummer worden de tabel- 
ling van de OPEN bestanden in RAM na¬ 
gelopen, tot het juiste nummer is gevon¬ 
den. Dit nummer wordt, samen met de 
nodige attributen in de RAM-tabellen ge¬ 
woon overschreven door de gegevens van 
het allerlaatste OPEN bestand in RAM. 
Daardoor komt aan de onderzijde in de ta¬ 
bel ruimte vrij, zodat de maximaal 10 
OPEN-bestanden op een goede manier 
kunnen worden benut. 

Het device nummer bepaalt vervolgens of 
-en zo ja, meer actie moet worden onder¬ 
nomen. Bij keyboard en scherm is de 
computer snel gereed. Voor IEEE- en RS- 
232- apparaten moet ook nog het kanaal 
worden schoongeveegd; dit gebeurt door 
de ROM-opdracht ’CLEAR CHAN- 
NEL’, een oude getrouwe uit de tijd van 
de IEEE interfacing. 

Opmerking 

CLOSE is een KERNEL-opdracht en kan 
daarom op eenvoudige wijze worden aan¬ 
gepast aan de verschillende Basic-ver- 
sies. 


Hiermee wordt het ERROR-kanaal van 
de disk geopend, bekenen en weer geslo¬ 
ten. Daarmee kan het zo zijn, dat ook nog 
‘pending’ data wordt afgewerkt op de 
juiste manier, maar -hoewel deze oplos¬ 
sing uit een Commodore-handboek af¬ 
komstig is- heb ik niet zoveel vertrouwen 
in deze redding. 


De volgende keer zullen we aandacht be¬ 
steden aan het vervolg van ons Basic-al- 
fabet, waarin opdrachten aan de orde ko¬ 
men als CLR, CMD en CONT. 

Jan Bodzinga 
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Tips & Trucs 64 


I n deze aflevering komen onder 
andere de volgende onderwer¬ 
pen aan bod: reset beveiliging, 
een data statements genererend 
programma, de wait instructie, 
vrije geheugengebieden en na¬ 
tuurlijk weer peeks & pokes. 

Reset beveiliging 

Om te voorkomen dat een programma il¬ 
legaal gekopieerd wordt, moet het pro¬ 
gramma op een aantal punten beveiligd 
worden. Een daarvan is de beveiliging 
van de resetknop en de STOP/RESTORE 
toetsen. Normaal kan een programma on¬ 
derbroken worden door op STOP/RE¬ 
STORE of op de resetknop te drukken, 
waardoor de gebruiker de controle over 
de computer krijgt en het programma met 
het SAVE commando kan kopiëren. Dit 
kunnen we tegengaan, door er bijvoor¬ 
beeld voor zorgen dat het programma, na 
het resetten van de computer, niet gestopt 
wordt, maar gewoon opnieuw begint. Om 
dit te bewerkstelligen, gebruiken we een 
slimme truc. 

Zodra u op de resetknop drukt, kijkt de 
computer of er een cartridge in de cartrid- 
ge poort is geplugd. Als dit het geval is 
dan start de computer het programma in 
de cartridge. Is er geen cartridge aanwe¬ 
zig, dan wordt de computer gewoon gere- 
set. Bij het indrukken van de RESTORE 
toets gebeurt er net zoiets. Eerst wordt er 
gekeken of er een cartridge aanwezig is. 
Als dat zo is, dan wordt deze gestart. An¬ 
ders test de computer of de STOP toets 
ook is ingedrukt. Als deze is ingedrukt, 
wordt het programma onderbroken en 
verschijnt er READY op het scherm. Als 
de STOP toets niet is ingedrukt, gebeurt 
er niets. De truc waarmee we de reset¬ 
knop en de RESTORE toets gaan beveili¬ 
gen, komt op het volgende neer. We ma¬ 
ken de computer wijs dat er een cartridge 
in de cartridge poort zit en dat het pro¬ 
gramma, dat we willen beveiligen, in die 


cartridge is. De computer zal dan na het 
indrukken van de resetknop of de RE¬ 
STORE toets dit programma starten. 

Als er in de cartridge poort een cartridge 
zit, dan staat er in de adressen $8004- 
$8008 een identificatiecode waaraan de 
computer kan zien dat er een cartridge 
aanwezig is. Deze identificatie code is: 
CBM80. (let er op dat CBM in hóófdlet¬ 
ters is geschreven). Door deze code zelf, 
in de vorm van ascii waarden, in de adres¬ 
sen $8004-$8008 te zetten, denkt de com¬ 
puter dat er een cartridge aanwezig is. De 
ascii waarden voor de code zijn: 
$C3,$C2,$CD,$38 en $30. We moeten nu 
alleen nog aan de computer vertellen naar 
welk geheugenadres hij moet springen, 
als de resetknop of RESTORE toets 
wordt ingedrukt. Het adres, waarheen ge¬ 
sprongen moet worden bij het indrukken 
van de resetknop, moet in de adressen 
$8000-$8001 worden gezet. Het lo-byte 
van het adres moet in $8000 worden gezet 
en het hi-byte in $8001. Het adres, waar¬ 
heen gesprongen moet worden bij het in¬ 
drukken van de RESTORE toets, moet in 
de adressen $8002-$8003 worden gezet. 
Het adres hoeft natuurlijk niet het begina- 
dres van het te beveiligen programma te 
zijn. U kunt bijvoorbeeld een speciale 
machinetaal routine schrijven, die wordt 
uitgevoerd zodra de resetknop wordt in¬ 
gedrukt. In dat geval moet u het begina- 
dres van die routine aan de computer 
doorgeven. Hieronder volgt een klein 
voorbeeldprogramma. 


LABELS MNEMONICS 
COMMENTAAR 

ldx #$00 ;Zet 

identificatie- 
11 lda code,x ;code 
in geheugen 
sta $8004,x 
inx 

cpx #$.05 
bne 11 

lda #art /Zet la-Eyte in 


sta $8000 
voor reset 

sta $8002 
RESTORE 

lda #start 
hi-byte in 

sta $8001 
voor reset 

sta $8003 
RESTORE 


;adressen 
; en 
; Zet 

;adressen 
; en 


rts 

start inc $d020 /Verhoog 
borderkleur 
jmp start 
code .byt 

$c3,$c2,$cd,$38,$30 


Eerst moet u de resetbeveiliging active¬ 
ren, door het bovenstaande programma 
een keer te starten. Zodra u nu op de re¬ 
setknop of RESTORE toets drukt, wordt 
de routine met de naam 'start’ uitgevoerd. 
De border zal dus continu van kleur ver¬ 
anderen. De enige manier om dit te stop¬ 
pen is door de computer uit te zetten. 
Zorg er dus voor dat u de routine op tape 
of disk gesaved heeft voordat u hem uit 
probeert. 


Data maker 

Een aantal afleveringen geleden hebben 
we de werking van de toetsenbordbuffer 
uitgelegd. Het is mogelijk om vanuit een 
Basic programma, opdrachten in de toet¬ 
senbordbuffer te zetten, die pas na het be¬ 
ëindigen van het programma worden uit¬ 
gevoerd. In deze aflevering zullen we een 
applicatie programma bespreken, dat ge¬ 
bruik maakt van deze techniek. Het pro¬ 
gramma is een zogenaamde data maker. 
Veel Basic programma’s maken gebruik 
van hulproutines, die in machinetaal zijn 
geschreven. De code van deze routines 
staat meestal aan het eind van het Basic 
programma, in de vorm van data state¬ 
ments. Deze data worden dan in het begin 
van het programma, met behulp van een 
FOR-NEXT lus en de READ instructie, 
ingelezen en in het geheugen gepoked. 
Bij kleine machinetaal routines kan men 
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Scan-waarden toetsenbord 


0 

inst/del 

33 

i 

1 

return 

34 

j 

2 

crsr hor 

35 

O 

3 

1 f7 

36 

m 

4 

fl 

37 

k 

5 

f3 

38 

o 

6 

f5 

39 

n 

7 

crsr ver 

40 

+ 

3 

3 

41 

P 

9 

w 

42 

1 

10 

a 

43 

- 

11 

4 

44 


12 

s 

45 


13 

s 

46 

@ 

14 

e 

47 


15 


48 

£ 

16 

5 

49 

* 

17 

r 

50 

> 

18 

d 

51 

clr/home 

19 

6 

52 


20 

c 

53 

3 

21 

f 

54 

ver pijl 

22 

t 

55 

/ 

23 

X 

56 

1 

24 

7 

57 

hor pijl 

25 

y 

58 


26 

g 

59 

2 

27 

8 

60 

spatie 

28 

b 

61 


29 

h 

62 

q 

30 

u 

63 

run/stop 

31 

V 

64 

geen 

32 

9 


toets 


figuur 1 


het geheugen nog wel met de PEEK in¬ 
structie uitlezen en de zo verkregen waar¬ 
den met de hand in data statements zetten. 
Maar bij langere routines moet men toch 
een vreemde hersenkronkel hebben om 
dit foutloos te doen en langer dan een 
kwartier vol te houden. Daarom hebben 
we onder het motto, ‘‘waarom vervelend 
werk doen, als de computer het ook kan”, 
een klein Basic programma ontwikkeld 
dat dit vervelende werk van u overneemt. 
Het programma maakt, zoals al eerder ge¬ 
zegd, gebruik van de toetsenbordbuffer. 
Als eerste vraagt de computer om het 
start- en eindadres van de routine, die u in 
data statements wilt zetten. Daarna zet de 
computer alles in data statements. Ver¬ 
volgens wordt een stukje programma ge¬ 
maakt dat de data statements met een 
FOR-NEXT lus in het geheugen poked. 
Tenslotte wist het programma zichzelf 
uit, zodat alleen de data statements en het 
gedeelte dat deze data inleest, overblij¬ 


ven. Hier volgt de listing van de data ma¬ 
ker. Zorg er voor dat u het programma sa- 
ved, voordat u het gaat uitproberen, om¬ 
dat u het programma anders kwijt bent, 
nadat het zichzelf gewist heeft. 

10 rem' data maker 
100 r=10000 

110 input "startadres";sa 
120 input "eindadres";ea 
130 i=sa 

140 if iea then 240 
150 print 

”{SHIFT-CLR}{3xCRSR-DOWN}"; 
r;"data 

160 for j=0 to 7 
170 if i+jea then 200 
180 

a$=str$(peek(i+j)):a$=right 
$(a$, len(a$)-1) 

190 print a$",”;:next 
200 print chr$ (20) 

210 print 

"r=";r + 10; ":i = ";i + 8;":sa="; 
sa;":ea=";ea;":goto 140" 


220 print "{HOME}“:pöke 
198,2;pöke 631,13:poke 
632,13 
230 end 
240 print 

"{SHIFT-CLR}{3xCRSR-DOWN f 
10 for i=";sa;" to";ea 
250 print "20 read a:poke 
i,a:next " 

260 print "goto 290" 

270 print "{HOME}";poke 
198,3:poke 631,13 
280 poke 632,13:poke 
633,13:end 
290 r=100 
300 print 

"{SHIFT-CLR}{3xCRSR-DOWN}"; 
:for £=0 to 9 
310 print i*10+r:next 
320 if r300..then print 

"r=";r+100;":goto 300" 

330 poke 198,11 
340 for i=631 to 642 
350 poke i,13:next 
360 print "{HOME}":end 

Het regelnummer waarop het eerste data 
statement terecht komt is 10000. Dit 
nummer kan veranderd worden door de 
waarde in regel 100 aan te passen. Per re¬ 
gel worden steeds acht datawaarden ge¬ 
plaatst; op de laatste eventueel minder. 
De stapgrootte tussen twee data regels is 
10. Deze grootte kan veranderd worden 
door het getal 10 in regel 210 te verande¬ 
ren. Het gedeelte dat de data statements 
inleest en in het geheugen poked wordt op 
regel 10 en 20 gezet. Dit kan veranderd 
worden door regel 240 en 250 aan te pas¬ 
sen. 

We zullen nu in het kort uitleggen hoe het 
programma werkt. Variabele R houdt het 
huidige regelnummer bij. De variabelen 
SA en EA bevatten respectievelijk het be¬ 
gin- en eindadres van de routine die ver¬ 
werkt moet worden. De variabele I houdt 
bij, bij welk adres we zijn met de verwer¬ 
king. 

In regel 140 wordt getest of de hele routi¬ 
ne al verwerkt is; als dit zo is, wordt naar 
regel 240 gesprongen. Regel 150 print 
een regelnummer met daarachter het 
woord ‘data’ op de vierde regel van het 
scherm. Regels 170-200 printen daarach¬ 
ter acht datawaarden. Regel 210 zorgt er¬ 
voor dat alle variabelen de juiste waarden 
hebben als het programma straks op¬ 
nieuw gerund wordt. In regel 220 worden 
twee RETURNS in de toetsenbordbuffer 
gepoked en in regel 230 wordt het pro¬ 
gramma beëindigd, zodat de twee regels 
die nu op het scherm staan, worden uitge¬ 
voerd. Regels 240-280 maakt het gedeelte 
dat de data statements inleest en in het ge¬ 
heugen poked en regels 300-360 wissen 
het programma. 

Vrije geheugengebieden 

Het Commodore geheugen is verdeeld in 
stukken van elk 256 bytes. Een zo’n stuk 
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geheugen van 256 bytes noemen we 
een page. Bij elkaar bestaat het ge¬ 
heugen uit 256 pages. Dit klopt ook, 
want 256 * 256 = 65536. En 65536 
bytes vormen 64 K geheugen. We 
gaan het in dit stukje hebben over de 
eerste vier pages van de Commodore. 

In dit gebied, dat van adres 0 tot adres 
1023 loopt, bevinden zich namelijk 
een aantal lege gebieden, waar de 
programmeur handig gebruik van kan 
maken. 

De eerste page wordt ook wel de zero 
page genoemd. Aan het eind van deze 
page bevinden zich vier adressen die 
niet gebruikt worden door het opera- 
ting system van de computer. Dit zijn 
de adressen 251 tot 254 ($FB - $FE). 

Dit is natuurlijk wel een erg klein ge- 
heugengebiedje, maar juist de machi- 
netaalprogrammeur kan hier goed ge¬ 
bruik van maken. Deze geheugena- 
dressen worden in machinetaal 
meestal gebruikt.met zero page adres- 
sing, zoals (indirect,x) en (indirect),y 
adressing. 

De tweede page bevat geen lege ge- 
heugengebieden. Deze page bevat 
voor het grootste deel de processor 
stack. We raden u niet aan om in dit 
geheugendeel te gaan rotzooien. 

Aan het eind van de derde page be¬ 
vindt zich een redelijk groot geheu- 
gengebied dat nergens voor gebruikt 
wordt. Dit geheugengebied loopt van 
adres 679 tot adres 767 ($02A7 - $02FF). 
U kunt in dit gebied bijvoorbeeld een 
klein machinetaal programma zetten. 
Maar wat nog veel handiger is, u kunt er 
een hele sprite in kwijt. U kunt het eerste 
byte van de sprite op adres 704 zetten en 
de rest van de sprite op de opeenvolgende 
adressen. Adres 704 is een veelvoud van 
64, namelijk 11 * 64. 

Ook de vierde page bevat een klein stukje 
vrij geheugen en wel van adres 1020 tot 
2023 ($03FC - $03FF). Voor deze adres¬ 
sen zit echter de cassettebuffer en deze 
kan ook prima gebruikt worden om er al¬ 
lerlei rotzooi in te zetten. De cassettebuf¬ 
fer loopt van adres 828 tot adres 1019. U 
kunt de cassettebuffer natuurlijk alleen 
als vrij gebied gebruiken als de cassette¬ 
recorder niet gebruikt wordt tijdens het 
gebruik van dit gebied. Bij elkaar heeft u 
dan een aardig groot gebied vrij. In dit ge¬ 
bied kunnen maar liefst drie sprites wor¬ 
den geplaatst. Deze sprites kunnen wor¬ 
den gezet op de adressen 832 (13 * 64), 
896 (14 * 64) en 960 (15 * 64). 

Dit waren de lege plaatsen in de laagste 
vier pages van de computer. Een andere 
keer zullen we nog lege geheugengebie- 
den bespreken in de rest van het compu¬ 
tergeheugen. 



Adres 197 

In adres 197 wordt bijgehouden wat de 
laatste toets is, die is ingedrukt. Als er 
geen toets is ingedrukt, is de inhoud van 
adres 197 het getal 64. Als er wel een 
toets is ingedrukt, wordt dat bijgehouden 
in de laagste vijf bits. In figuur 1 staat een 
tabel waarin alle waarden van de toetsen 
staan afgedrukt. U kunt zien dat alle te¬ 
kens die te maken zijn in combinatie met 
de shift-, Commodore- of control-toets, 
niet in de tabel staan. In adres 197 worden 
deze combinaties allemaal niet bijgehou¬ 
den. Als u bijvoorbeeld wilt testen of re¬ 
turn is ingedrukt, kunt u het volgende sta¬ 
tement gebruiken. 

IF PEEK(197)=1 THEN ... 

In figuur 1 kunt u zien dat het scan-getal 
van return 1 is. Er zijn ook een paar lege 
plaatsen in de tabel. De waarden in de ta¬ 
bel met daarachter een lege plek corres¬ 
ponderen niet met een toets, en kunt u dus 
ook nooit verkrijgen bij het uitpeeken van 
adres 197. 

De WAIT instruktie 

De WAIT instruktie is waarschijnlijk een 
van de minst gebruikte Basic instrukties. 
Reden genoeg om er eens wat extra aan¬ 
dacht aan te besteden, want er zijn handi¬ 


ge dingen mee te doen. Het formaat 
van WAIT is de volgende: 

WAIT adres,getall, 
getal2 

U ziet dat WAIT drie parameters 
heeft. De eerste parameter is een ge- 
heugenadres. De tweede en derde pa¬ 
rameter moeten allebei getallen zijn. 
Deze getallen moeten tussen de 
waarden 0 en 255 liggen. De compu¬ 
ter behandelt de WAIT instruktie als 
volgt. Er wordt eerst naar het opgege¬ 
ven geheugenadres gekeken. Dat wil 
zeggen, de waarde die in dat geheu¬ 
genadres staat wordt opgehaald. Op 
deze waarde wordt dan eerst een Ex- 
clusive OR uitgevoerd met de derde 
parameter (getal2). Het resultaat 
hiervan wordt daarna nog vergeleken 
met de tweede parameter (getall) 
door middel van AND. Als het uit¬ 
eindelijke resultaat 0 (FALSE) is, 
dan wacht de computer. Als het re¬ 
sultaat een positief getal is, dus onge¬ 
lijk nul (TRUE), dan gaat de compu¬ 
ter verder met de volgende instruktie. 
Bij uitkomst 0 blijft de computer 
steeds de bovenstaande berekening 
uitvoeren, totdat de uitkomst niet nul 
is. Op deze manier kan er getest wor¬ 
den of een geheugenadres een be¬ 
paalde bitcombinatie heeft. Is dit niet 
het geval, dan wordt er gewacht tot¬ 
dat het geheugenadres wel die be¬ 
paalde bitcombinatie heeft. 

U zult vermoedelijk wel weten wat een 
AND van twee getallen inhoudt. Twee 
getallen worden bit voor bit met elkaar 
vergeleken. De uikomst van een bitverge- 
lijking is alleen een 1, als beide bits een 1 
bevatten. Anders is de uitkomst een 0. 
Een Exclusive OR tussen twee getallen is 
geen gewone OR, en zullen we derhalve 
wat uitgebreider behandelen. Het volgen¬ 
de schema geeft de waarheidstabel van 
Exclusive OR. 


bits uitkomst 


0 0 - 0 

0 X - 1 

1 0 - X 

1 1 - o 


Waarheidstabel 
Exclusive OR 


U ziet dat een bitvergelijking bij een Ex¬ 
clusive OR alleen een 1 oplevert, als 
slechts een van beide bits op 1 staat. Staan 
beide bits op 1, dan levert de vergelijking 
0 op. 

Nu weer terug naar de WAIT instruktie. 
Voordat we een voorbeeld geven, vertel¬ 
len we eerst nog even het volgende. De 
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derde parameter mag weg worden gela¬ 
ten. De computer zal dan de derde para¬ 
meter als nul beschouwen. Een Exclusive 
OR met nul, zal geen invloed hebben. Im¬ 
mers, als een getal wordt vergeleken door 
middel van Exclusive OR met nul, zal het 
resultaat weer hetzelfde getal zijn. U kunt 
dit controleren in de waarheidstabel. Be¬ 
kijk nu het volgende voorbeeld eens. 

WAIT 653,2 

Met geheugenadres 653 kan getest wor¬ 
den of de shift-. Commodore- of control- 
toets wordt ingedrukt (zie Tips & Trucs 
April/Mei 1989). De computer kijkt naar 
de inhoud van adres 653. Er is geen derde 
parameter meegegeven, dus de computer 
beschouwt de derde parameter als nul. 
Hierdoor verandert er niets aan de waarde 
die de computer heeft opgehaald uit adres 
653. Daarna wordt deze waarde geAND 
met de tweede parameter. Deze parame¬ 
ter heeft de waarde 2, dus er wordt een 
AND uitgevoerd met 2. Kortom, er wordt 
naar het tweede bit van adres 653 geke¬ 
ken. Als het tweede bit aan staat, is de 
Commodore-toets ingedrukt, anders niet. 
Als dit bit aanstaat, levert de AND met 2 
als uitkomst ook 2 op, en zal de computer 
niet wachten. Als het bit uitstaat, levert de 
AND als uikomst 0 op, en zal de compu¬ 
ter wachten tot het bit wel aanstaat. 
WAIT 653,2 heeft dus tot gevolg dat de 
computer wacht tot de Commodore-toets 
wordt ingedrukt. We zullen als laatste 
nog een voorbeeld geven. 

WAIT 197,63 

Deze instruktie zorgt ervoor dat de com¬ 
puter wacht totdat er een toets wordt inge¬ 
drukt. We hebben gezien (zie andere tip) 
dat adres 197 een waarde kleiner dan 64 
bevat als er een toets ingedrukt is. De der¬ 
de parameter is wederom niet aanwezig, 
dus daar hoeven we geen rekening mee te 
houden. Door de inhoud van adres 197 
met 63 te ANDen, wordt er gekeken of er 
een of meer van de laagste 5 bits aanstaan 
(dan is er een toets ingedrukt). Is dit het 
geval, dan levert de AND een positief ge¬ 
tal en wordt er niet gewacht. Staan de 
laagste vijf bits allen uit, dan is er geen 
toets ingedrukt en moet er gewacht wor¬ 
den. Dit gebeurt dan ook, omdat de AND 
vergelijking dan nul oplevert. 

U ziet dat de derde parameter in de prak¬ 
tijk nauwelijks tot niet gebruikt wordt. 
Heeft u nog handige WAITs, dan kunt u 
ze gewoon opsturen. 


Peeks & Pokes 
186 

In dit geheugenadres wordt bijgehouden 
welk randapparaat het laatst gebruikt is. 
Een 1 is de cassetterecorder, een 4 is de 
printer en 8 betekent de disk-drive. Dit 
zijn enkele voorbeelden van randappara- 
ten, maar er kunnen natuurlijk ook andere 
apparaten zijn met andere nummers, die 
in dit adres geregistreerd worden. Als er 
nog geen randapparaat is gebruik, staat er 
een 0 in dit adres. 


als de waarde van de cursorkleur. Van dit 
adres zijn alle bits aangesloten, zodat een 
peek een getal tussen de 0 en 255 kan op¬ 
leveren. Omdat u alleen de laagste vier 
bits hoeft te hebben, kunt u de volgende 
regel intypen. 

PRINT PEEK(647) AND 15 

157 

Adres 157 is een zogenaamde Kernal 
Message Control Flag. Deze vlag bepaalt 
wat voor meldingen er worden gegeven 



646 

Geheugenadres 646 bevat de huidige 
kleurcode van de cursor. Dit adres kan 
niet alleen gelezen, maar ook geschreven 
worden. Om de cursor de kleur geel te ge¬ 
ven moet bijvoorbeeld het volgende in 
worden getypd. 

POKE 646,7 

Hierbij hebben de kleuren gewoon de 
standaard waarden, zoals ze in de user 
manual staan. Alleen de laagste vier bits 
van dit adres worden gebruikt voor de 
kleurcodering. De hoogste vier bits zijn 
echter wel aangesloten en kunnen dus 
eventueel gebruikt worden om er iets in 
op te slaan. 

647 

Dit adres kan worden uitgepeeked om te 
kijken wat de kleur is van het karakter on¬ 
der de cursor. De waarde die zo wordt 
verkregen hoeft dus niet hetzelfde te zijn 


bij het gebruik van randapparatuur. Stan¬ 
daard bevat dit adres de waarde 128; de 
computer is dan in de directe mode. Dit 
betekent dat er meldingen als SEARCH- 
ING, SAVING en FOUND worden gege¬ 
ven. Dit zijn de Control meldingen. 

Door de waarde 192 in dit adres te zetten 
worden naast de Control meldingen ook 
Kernal meldingen gegeven. Deze meldin¬ 
gen bestaan uit een foutcode (bijvooor- 
beeld I/O ERROR 4). Dit kan alleen van¬ 
uit machinetaal programma’s gebeuren; 
bijvoorbeeld bij het laden en saven m.b.v. 
een machinetaal monitor. 

De waarde 64 betekent dat er alleen Kern¬ 
al meldingen worden gegeven. Ook dit is 
alleen vanuit machinetaal mogelijk. 

De waarde 0 onderdrukt alle meldingen. 
Deze waarde wordt automatisch in adres 
157 geplaatst als er een Basic programma 
draait. De computer is dan in programma 
mode. 

Hylke Sprangers & Michel de Boer 
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Adressen voor high resolution 

Adres 

Funktie 

53265 

bit 5: 0 = hires uit 

1 = hires aan 

53272 

bit 3: hires pointer 

0 = low segment 

1 = high segment 

53270 

bit 4: 0 = single color 

1 = multi color 

1024- 

2023 

single color: 
bit 0-3: achtergrondkleur 
bit 4-7: voorgrondkleur 


multi color: 
bit 0-3: kleur met 

bitcombinatie 10 
bit 4-7: kleur met 

bitcombinatie 01 

55296- 

56295 

multi color: 
kleur met 
bitcombinatie 11 


figuur 1 


Graphics 
op de 64 

Deel 5: 

high resolution 
vervolg 

D it is alweer de vijfde aflevering 
van de cursus Graphics op de 
Commodore 64. De wervelende 
cursus, die de deuren naar de 
schatkamer van de graphics voor 
u opent. Reeds bent u langs de 
duistere wegen van de karakters 
en de sprites gevoerd. In deze af¬ 
levering zullen Michel de Boer en 
Hylke Sprangers u verder mee¬ 
voeren in high resolution. Een taai 
onderwerp, dat wel, maar nood¬ 
zakelijk als voorbereiding op 
computerkunst. And now for 
something completely different... 

In de vorige aflevering zijn we begonnen 
met onze reis door het ruige landschap 
van hires. Daarin zijn onder meer de vol¬ 
gende onderwerpen aan bod gekomen: 
opbouw en opslaan van het hires scherm 
en algoritmen om hires te wissen en om 
pixels aan te zetten. Omdat hires een vrij 
ingewikkeld grafisch object is, waar veel 
over te vertellen is, zullen we in deze af¬ 
levering verder gaan met de bespreking 
van hires. We beginnen ook deze keer 
met een korte samenvatting van het voor¬ 
afgaande. Daarna zullen we het gaan heb¬ 
ben over het trekken van lijnen, het ma¬ 
ken van cirkels en het inkleuren van vlak¬ 
ken. In de praktijk zult u deze technieken 
niet zo vaak gebruiken, zeker niet bij het 
maken van video games. Deze technieken 
vormen echter een onontbeerlijke basis 
voor het maken van computerkunst, waar 
we het in de volgende aflevering over zul¬ 
len hebben. Ook zullen we het in deze af¬ 
levering hebben over multi color hires. 

Samenvatting 

Voor alle duidelijkheid zullen we in deze 
paragraaf de basiselementen van hires 


nog een keer behandelen. Hires is een 
heel scherm dat geheel uit pixels is opge¬ 
bouwd. Elk van deze pixels kan afzonder¬ 
lijk aan en uit worden gezet. Het hires 
scherm bestaat uit 64000 pixels, 320 
pixels horizontaal en 200 pixels vertikaal. 
Er gaan acht pixels, die horizontaal naast 
elkaar liggen, in een byte. Zo bestaat het 
hires scherm uit 64000 / 8 = 8000 bytes. 
Deze 8000 bytes zijn geordend in groep¬ 
jes van acht bytes, cellen genaamd. Een 
cel van het hires scherm komt overeen 
met een karakter van het lores (tekst) 
scherm. Het hires scherm bestaat zo uit 
1000 cellen. Deze cellen worden op de¬ 
zelfde manier genummerd als de karak¬ 
ters op het lores scherm. De cel linksbo¬ 
ven is dus cel 0, de cel daarnaast cel 1, 
enzovoort. De eerste acht bytes (byte 0-7) 
van het hires scherm bevinden zich in cel 
0, de tweede acht bytes (byte 8-15) in cel 
1. Op deze manier heeft elk byte een ei¬ 
gen bytenummer. 

Deze 8000 bytes kunnen op een paar 
plaatsen in het geheugen worden gezet. 
Voorlopig hebben we voor het geheugen- 
gebied, dat begint op 8192, gekozen. Het 
geheugenadres van een bepaald byte op 
het hires scherm kan nu berekend worden 


door het bytenummer van dat byte bij 
8192 op te tellen. 

Voor elke cel kan een aparte achter- en 
voorgrondkleur worden gekozen. Deze 
twee kleuren worden samengevoegd tot 
een waarde, die specifiek is voor die ach¬ 
ter- en voorgrondkleur. Deze waarde kan 
als volgt berekend worden: kleurwaarde 
= 16 * voorgrond kleur + achtergrond- 
kleur. Er zijn dus 1000 kleurwaarden no¬ 
dig voor de 1000 cellen. Deze 1000 waar¬ 
den kunnen worden opgeslagen in het ge- 
heugengebied dat loopt van adres 1024 
tot 2023. Tenslotte kan het hires worden 
aangezet met de volgende twee pokes: 

POKE 53265,PEEK (53265) OR 32 
en POKE 53272,PEEK(53272) 

OR 8 . 

Als laatste hebben we het in de vorige af¬ 
levering gehad over pixels aanzetten. Dit 
kan gedaan worden met de volgende drie 
Basic regels. 

gby=8192+320*int(yc/8)+8*int 
3(xc/8)+(yc and 7) 
jbi=2 A (7-(xc and 7)) 
poke gby,peek(gby) or jbi 
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Hierbij staat xc voor x-coordinaat (0-319) 
en yc voor y-coordinaat (0-199). Het 
pixel linksboven heeft coördinaten (0,0) 
en het pixel rechtsonder (319,199). 

Lijnen trekken 

We zijn nu aangekomen bij het onder¬ 
werp lijnen trekken. Tussen twee wille¬ 
keurig uitgekozen punten valt, volgens 
Postulaat 1 van de heer Euclides (+/- 300 
v. Christus), een lijn te trekken. Het is nu 
aan ons om een algoritme te verzinnen 
om de Commodore een lijn te laten trek¬ 
ken tussen twee punten. Helaas zal het 
volgende stukje ook weer een wiskundige 
inslag hebben. We kunnen u toch gerust¬ 
stellen: ook al begrijpt u van alle wiskun¬ 
de bijna niets of helemaal niets, het gaat 
er om dat u de voorbeeld programma’s 
goed leert hanteren. De formules die in 
deze programma’s worden gebruikt, wil¬ 
len we wel graag uitleggen, maar het hin¬ 
dert niet als u het allemaal niet volledig 
kunt volgen. Wel, we gaan het trekken 
van lijnen uitleggen aan de hand van een 
illustratie (zie figuur 2). In dit figuur ziet 
u twee punten (pixels) A en B waartussen 
een lijn loopt. Het gaat erom dat deze lijn 
AB door de computer zelf wordt getrok¬ 
ken, als de twee punten A en B worden 
aangeboden aan de computer. Met andere 
woorden, de computer krijgt een begin- 
en eindpunt (hier punt A en B) en moet 
tussen die twee punten een lijn trekken. 
Zoals u in de figuur kunt zien, is er een 
rechthoekige driehoek geconstrueerd met 
lijnstuk AB als hypotenusa. De hypotenu¬ 
sa is de zijde die tegenover de rechte hoek 
ligt. 

We voeren nu het begrip richtingscoeffi- 
cient (rico) in. De rico van een lijn is de 
vertikale afstand tussen twee willekeurige 
punten op die lijn gedeeld door de hori¬ 
zontale afstand van die twee zelfde pun¬ 
ten. We willen de rico hebben van lijnstuk 
AB. Daartoe delen we de vertikale af¬ 
stand tussen A en B door de horizontale 
afstand tussen A en B. In het plaatje: rico 
AB = yl / xl. In ons plaatje is de rico van 
lijnstuk AB ongeveer 2. Oftewel, yl is bij¬ 
na twee keer zo groot als xl. Dit betekent 
dat bij het tekenen van lijnstuk AB bij 
elke stap naar rechts, twee stappen naar 
boven gedaan moeten worden. U ziet dat 
een lijn volledig wordt bepaald door een 
punt waar de lijn doorheen gaat en door 
zijn rico. Als we twee punten hebben 
waar een lijn doorheen moet, moet de rico 
van de lijn worden uitgerekend. Vervol¬ 
gens kan betrekkelijk eenvoudig de lijn 
worden getrokken. Het komt erop neer 
dat we steeds 1 stap in horizontale rich¬ 
ting doen en rico (=yl/xl) stappen in ver¬ 
tikale richting. Zo komen we elke keer bij 
het volgende pixel op de lijn. Als de rico 
groter dan 1 is maken we steeds 1 stap in 
vertikale richting en xl/yl stappen in hori¬ 


zontale richting; anders ontstaat er een 
stippellijn. Op deze manier zorgen we er¬ 
voor dat de stapgrootte in zowel de x- als 
' y-richting altijd kleiner of gelijk 1 is, 
waardoor elk volgend pixel aansluit bij 
j het vorige pixel. We zullen het program¬ 
ma om een lijn te trekken alvast geven. 

5 rem lijn trekken 

10 bx=10:by=20:ex=230:ey=120 

20 gl=abs(bx-ex) 

30 i.f abs (by-ey) >gl then 
gl=abs(by-ey) 

40 xs= (bx-ex)/gl:ys=(by-ey)/ 

?ï 

50 for x=l to gl 
60 xc=int(bx) :yc=int(by) 

:gosub 100 

70 bx=bx+xs:by=by+ys:next 
80 goto 80 

100 gby=8192+int(yc/8)*320+ 
int (xc/8)*8+(yc and 7) 

110 gbi=2 A (7-(xc and 7)) 

120 poke gby,peek(gby) or 
gbi:return 

In dit programma wordt het hires scherm 
niet aangezet en gewist, dat moet u zelf 
doen. We zullen het programma zo goed 
mogelijk proberen uit te leggen. Omdat 
een lijn is opgebouwd is uit aparte pixels, 
moeten we een subroutine hebben die een 
willekeurige pixel aanzet. Die subroutine 
bevindt zich op de regels 100 tot 120. In 
regel 10 worden de twee punten gedefini¬ 
eerd, waartussen de lijn wordt getrokken. 
De punten hebben de coördinaten (bx, by) 
en (ex, ey). In de regels 20 en 30 wordt de 
afstand bepaald tussen de x- (horizontale 
afstand) en de y-coordinaat (vertikale af¬ 
stand) van de twee punten. De grootste af¬ 
stand wordt aan de variabele gl toege¬ 
kend. Er wordt verder met de grootste af¬ 
stand (gl) gerekend om te voorkomen dat 
er een stippellijn ontstaat. Daarna wordt 
in regel 40 de stapgrootte bepaald in de x- 
(xs) en y-richting (ys). De lijn wordt nu 
als volgt getekend. We beginnen vanuit 
het eerste opgegeven punt met de coördi¬ 
naten (bx,by). We tekenen het punt. Het 
tekenen van een pixel gebeurt in de su¬ 
broutine vanaf regel 100. Daarna worden 
de coördinaten van het punt verhoogd met 
xs in de x- en ys in de y-richting. Dan 
wordt het volgende pixel aangezet. Dit al¬ 
les gebeurt in de lus in regels 50 en ver¬ 
der. U kunt in het programma zien dat al¬ 
tijd of xs of ys de waarde 1 of -1 heeft. De 
x- of y-coordinaat wordt dan verhoogd of 
verlaagd met 1. Op deze manier kunnen 
we redelijk nauwkeurig een lijn tekenen. 
Het programma bevat een kleine onnauw¬ 
keurigheid. Als we het beginpunt van de 
lijn gelijkmaken aan het eindpunt van de 
lijn, wordt er voor gl de waarde 0 gevon¬ 
den. Vervolgens wordt er dan bij het be¬ 
rekenen van xs en ys gedeeld door 0. Dit 
kan niet, en de computer zal stoppen met 
een error. Hoewel dit randgeval makke¬ 


lijk te verhelpen is met een IF statement, 
hebben we daar toch vanaf gezien, omdat 
een nul dimensionale lijn niet gedefini¬ 
eerd is. 

Het testen van pixels 

Als je een willekeurige pixel hebt, is het 
soms handig om te kijken of dat pixel aan 
of uit staat. Dat dit werkelijk handig is 
zullen we straks nog zien bij het inkleuren 
van vlakken. In feite is dit testen van een 
pixel heel eenvoudig. We gaan weer uit 
van een pixel met coördinaten (XC, YC). 
Het eerste wat we dan moeten doen, is het 
berekenen van GBY en JBI. Daarbij staat 
GBY voor het goede byte, waarin het 
pixel zich bevindt. JBI is het juiste bit in 
dit byte. De formules voor deze twee va¬ 
riabelen zullen we hier niet meer geven 
(deze staan onder andere in de samenvat¬ 
ting aan het begin van dit artikel). 

Om nu te testen of een pixel uit staat, kan 
het volgende statement gebruikt worden. 

IF (PEEK(GBY) AND JBI)=0 THEN 
REM PIXEL UIT 

Het volgende statement kan gebruikt 
worden om te testen of een pixel aan 
staat. 

IF (PEEK (GBY) AND JBI)<>0 
THEN REM PIXEL AAN 

Het inkleuren van vlakken 

Het applikatie programma van vorige 
keer omvatte een reeks hires routines. Bij 
deze routines zat ook een F1LL funktie. 
Hiermee konden omsloten vlakken inge¬ 
kleurd worden. Het enige wat gedaan 
moest worden, was het meegeven van een 
willekeurig punt in het vlak dat inge¬ 
kleurd moest worden. We zullen in deze 
paragraaf uitleggen hoe een routine ge¬ 
bouwd kan worden, die een vlak inkleurt. 



figuur Z 


28 


Commodore Info 7/89 




C-64 


We zullen gelijk maar een Basic pro¬ 
gramma geven, voor het inkleuren van 
vlakken. Deze versie werkt ongeveer op 
dezelfde manier als de machinetaalrouti- 
ne in de vorige aflevering. Hier komt het 
programma. 

10 rem inkleuren vlakken 
20 xc=xc-l:gosub 170 
30 if (peek(gby) and jbi)=0 
then 20 

40 xc=xc+l:gosub 190 
50 yc=yc-l:gosub 170 
60 if (peek(gby) and jbi)=0 
and (pd=0) then 
pd=l:gosub 160 

70 if (peek(gby) and jbi)<>0 
and (pd=l) then pd=0 
80 yc=yc+2:gosub 170 
90 if (peek(gby) and jbi)=Ö 
and (pu=0) then 
pu=l:gosub 160 

100 if (peek (gby) and jbi)<>0 
and (pu=l) then pu=0 
110 yc=yc-l:xc=xc+l:gosub 
170:xc=xc-l 

120 if (peek (gby) and jbi)=0 
then 40 

130 if sp=0 then return 
140 pu=0:pd=0 :sp=sp-l 
150 xc=sx(sp) :yc=sy (sp) :goto 
20 

160 sx (sp)=xc:sy (sp)=yc:sp= 
sp+1:return 

170 gby=8192+320*int(yc/8)+ 
8*int(xc/8) + (yc and 7) 

180 jbi=2 A (7-(xc and 
7)):return 
190 gosub 160:poke 
gby,peek (gby) or 
jbi:return 

Voordat dit programma wordt aangeroe¬ 
pen, moet er eerst een waarde worden toe¬ 
gekend aan de variabelen XC en YC. Het 
aanroepen van dit programma moet ge¬ 
beuren met GOSUB 10. Het programma 
is een subroutine, die ingebouwd kan 
worden in een ander programma. (XC, 
YC) zijn de coördinaten van een punt in 
het vlak, dat ingekleurd moet worden. 
Vanaf dit opgegeven punt wordt er in de 
regels 20 en 30 in een rechte, horizontale 
lijn naar links gelopen. Dit gebeurt door 
XC, de x-coordinaat van het punt, steeds 
met een te verlagen. Dit gaat door totdat 
er een scheidslijn is gevonden, oftewel 
een pixel dat aan staat. In het programma 
bevinden zich een paar subroutines. De 
subroutine op regel 170 berekent GBY en 
JBI, het byte en bit in dat byte, die corres¬ 
ponderen met het pixel (XC, YC). Door 
deze routine eerst aan te roepen, kan er in 
regel 30 getest worden of het pixel aan 
staat. Als dit niet het geval is, wordt XC 
weer verlaagd en het volgende pixel ge¬ 
test. 

Als de scheidslijn links gevonden is, 
wordt vervolgens in regel 40 het eerste 
pixel aangezet, door de subroutine op re¬ 
gel 190 aan te roepen. Er wordt een lijn 


naar rechts getrokken, totdat er een 
scheidslijn aan de rechterkant is gevon¬ 
den. Tijdens het trekken van deze lijn, 
wordt er boven en onder de lijn gekeken 
of de pixels daar aan of uit staan. Pixels 
die uil staan, moeten immers straks ook 
opgevuld worden. Als er een pixel wordt 
gevonden die uit staat, wordt die be¬ 
waard, om later opgevuld te worden. Het 
bewaren van de coördinaten van zo'n 
pixel doen wc door middel van een stack. 
Een stack is als het ware een rij van gege¬ 
vens. Als er een gegeven toe wordt ge¬ 
voegd aan de rij, wordt dat gegeven ach¬ 
ter aan de rij geplaatst. Als er een gegeven 
uit de rij moet worden gehaald, kan alleen 
het achterste gegeven worden gepakt. Dit 
is ook het gegeven wat het laatst aan de rij 
is toegevoegd. Zo’n rij noemen we een 
stack. Met gegeven bedoelen we in dit ge¬ 
val de coördinaten van een pixel. Door de 
subroutine op regel 160 aan te roepen, 
worden XC en YC op de stack gezet. 
Voor XC is er de stack met naam SX en 
voor YC de stack met naam SY. SX en 
SY zijn in feite gewoon twee arrays. Het 
laatste element in het array wordt aange¬ 
wezen door de zogenaamde stackpointer 
SP. Door SP weten we ook altijd hoeveel 
elementen er op de stack staan. Als er nog 
niets of niets meer op de stack staat, is SP 
gelijk aan nul. 

We gaan weer even terug naar regel 40. 
Daar werd begonnen met het trekken van 
de lijn naar rechts. In regel 50 wordt de 
y-coordinaat verlaagd, om in regel 60 on¬ 
der de lijn te kijken naar pixels die uit 
staan. Er wordt ook nog een variabele PD 
bijgehouden. Deze wordt op een gezet, 
als er een pixel is gevonden dat uit staat. 
Dit, omdat het pixel daarnaast dan niet 
meer onthouden hoeft te worden, als deze 
ook uit staat. Als PD dus op 1 staat, wordt 
er niet meer onder de lijn gekeken. Als 
PD echter op 0 staat, wordt dit wel ge¬ 
daan. Dit alles gebeurt in de regels 60 en 
70. In regel 80 wordt de y-coordinaat met 
twee verhoogt, om nu boven de lijn te kij¬ 
ken. Dit gebeurt in de re¬ 
gels 90 en 100. In plaats 
van de variabele PD, wordt 
nu de variabele PU bijge¬ 
houden, om precies dezelf¬ 
de redenen. In regel 110 en 
120 wordt weer verder ge¬ 
gaan met het trekken van 
de lijn naar rechts. Er wordt 
daar gekeken of er al een 
rechter scheidslijn is. Zo¬ 
niet, dan wordt er terugge¬ 
sprongen naar regel 40, om 
het volgende pixel aan te 
zetten. 

Als de lijn wel klaar is, 
wordt er in regel 130 geke¬ 
ken of er nog een pixel op 
de stack staat. Als dit niet 
het geval is, staat SP op 0, 


en wordt er gestopt, d.w.z. terugspringen 
naar de plaats vanwaar de routine werd 
aangeroepen. Het vlak is dan ingekleurd. 
Anders worden in de regels 140 en 150 dc 
coördinaten van een pixel van de stack 
gehaald. Het hele verhaal begint dan weer 
opnieuw. De coördinaten worden weer 
naar links verplaatst, totdat er een 
scheidslijn wordt gevonden. Er wordt 
daarna weer begonnen met het trekken 
van een lijn naar rechts. 

U moet er wel aan denken, dat het vlak 
dat u wilt inkleuren, geheel afgebakend is 
door lijnen. Als u gewoon het hires aanzet 
en bovenstaande routine aanroept, ge¬ 
beurt er niets. Er moet echt een vlak zijn 
dat ingekleurd kan worden. 

Cirkels 

Veel meetkundige figuren, zoals driehoe¬ 
ken en rechthoeken, kunnen gemaakt 
worden door een aantal rechte lijnen te 
trekken. Voor dergelijke figuren is het 
dus voldoende om het algoritme voor het 
trekken van een lijn te kennen. Dit algo¬ 
ritme was een soort wiskundige lineaal, 
die ons in staat stelde om lijnen op het 
scherm te trekken. Om cirkels te tekenen, 
hebben we echter niets aan een lineaal; 
we hebben een passer nodig. Daarom 
hebben we voor het maken van cirkels 
een nieuw algoritme nodig, dat als het 
ware een wiskundige passer is. 

Het algoritme om cirkels te tekenen is he¬ 
laas wat ingewikkelder dan het algoritme 
om een lijn te trekken. Allereerst voeren 
we twee termen in. De eerste is het mid¬ 
delpunt: dit is het gaatje wat u in het pa¬ 
pier prikt als u een cirkel met een passer 
tekent. De tweede is de straal: dit is de 
afstand tussen de twee benen van de pas¬ 
ser, ofwel de afstand tussen het middel¬ 
punt en de omtrek van de cirkel. Voor de 
wiskundig geïnteresseerde lezers zullen 
we nu proberen om het algoritme zo hel¬ 
der mogelijk uit te leggen. Degenen die 
niet zo dol zijn op wiskunde en alleen ge¬ 
ïnteresseerd zijn in het resultaat, de cirkel 
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op het scherm, kunnen het wiskundige 
gedeelte overslaan en genoegen nemen 
met het Basic programma om cirkels te 
tekenen. 

Het algoritme is gebaseerd op de wiskun¬ 
dige functies sinus en cosinus. We zullen 
daarom eerst een korte uitleg van deze 
twee functies geven. Beide functies delen 
twee zijden van een rechthoekige drie¬ 
hoek op elkaar. Een rechthoekige drie¬ 
hoek is een driehoek waarvan een van de 
hoeken 90 graden is. Die hoek wordt een 
rechte hoek genoemd. In figuur 3 staat 
zo’n driehoek. De sinus en de cosinus zijn 
functies die worden uitgevoerd op de 
grootte van een hoek van de driehoek, net 
zoals worteltrekken een functie is, die 
wordt uitgevoerd op een positief getal. 
We kunnen bijvoorbeeld de sinus van 
hoek A berekenen. Dit noteren we als 
SIN(A). Deze berekening is heel simpel; 
de sinus van een hoek deelt namelijk de 
overstaande zijde door de schuine zijde. 
Met de schuine zijde wordt de zijde, die 
tegenover de rechte hoek (hoek B) ligt, 
bedoeld; in ons voorbeeld dus zijde AC. 
Met de overstaande zijde bedoelen we de 
zijde die tegenover de hoek, waarvan we 
de sinus willen berekenen (hoek A), ligt; 
hier dus zijde BC. De uitkomst van 
SIN(A) is dus 3 / 5 = 0,6. 

Ook kunnen we de cosinus van hoek A 
berekenen. Dit noteren we als COS(A). 
Deze berekening is net zo makkelijk als 
de berekening van de sinus. Nu moet de 
aanliggende zijde door de schuine zijde 
gedeeld worden. Met de aanliggende zij¬ 
de wordt de zijde die tussen de hoek 
(hoek A) en de rechte hoek (hoek B) ligt, 
bedoeld. De uitkomst van COS(A) is dus 
4 / 5 = 0,8. 

Normaal wordt de grootte van een hoek in 
graden gemeten. Dit kunt u bijvoorbeeld 
met een geodriehoek of gradenboog doen. 

U kunt daarop dan aflezen hoe groot een 
bepaalde hoek is. Helaas worden hoeken 
in de wiskunde niet in graden gemeten, 
maar in radialen. Gelukkig is er een een¬ 
voudige formule die u in staat stelt om 
graden om te zetten in radialen. Deze for¬ 
mule is de volgende: 

radialen = graden / 180 * PI 

Hierin staat PI voor het getal 
3.141592654. Op de computer kunt u 
voor dit getal gewoon de Griekse letter pi 
gebruiken. Deze bevindt zich op de toets 
met het vertikale pijltje. De Commodore 
64 rekent ook in radialen. Om bijvoor¬ 
beeld de sinus van 30 graden te bereken, 
tikt u het volgende in: 

PRINT SIN (30/180*PI). 

Nu kunnen we met behulp van de sinus en 
de cosinus een algoritme ontwerpen. Dit I 


doen we aan de hand van figuur 4. Daarin 
staat een cirkel getekend. Het middelpunt 
hebben we M genoemd. De lijn R is de 
straal van de cirkel. De letter 'R' komt 
van het Latijnse woord 'radius', dat straal 
betekent. Het middelpunt van de cirkel 
heeft de coördinaten (0,0). De straal van 
de cirkel heeft lengte 1. Met deze twee 
gegevens kunnen we de hele cirkel teke¬ 
nen. We moeten daarvoor van elk punt op 
de cirkel de coördinaten berekenen en 
vervolgens het punt aanzetten. Van vier 
punten zien we meteen wat de coördina¬ 
ten zijn (deze staan in de figuur vermeld). 
Een daarvan is punt (1,0). Vanaf dit punt 
beginnen we de cirkel tegen de klok in te 
tekenen. Het berekenen van de coördina¬ 
ten van de punten gaat als volgt. We kun¬ 
nen bij elk punt een rechthoekige drie¬ 
hoek construeren, met M als een van de 
hoeken en R als schuine zijde. In figuur 4 
hebben we zo’n driehoek bij een wille¬ 
keurig punt (X,Y) geconstrueerd. Het is 
nu makkelijk in te zien dat de aanliggende 
zijde van hoek M lengte X heeft en dat de 
overstaande zijde lengte Y heeft. Om de 
waarde van X en Y te bepalen, moeten we 
dus de lengte van deze twee zijden bere¬ 
kenen. Dit gaan we doen met de sinus en 
de cosinus van hoek M. De uitkomsten 
van deze twee functies zijn de volgende: 

SIN(M) = Y / R 
COS(M) = X / R 

Hieruit kunnen we vervolgens Y berke¬ 
nen door SIN(M) met R te vermenigvul¬ 
digen, want SIN(M) *R = Y/ R*R = Y. 
Op dezelfde wijze wordt X verkregen 
door COS(M) met R te vermenigvuldi¬ 
gen. We kunnen nu een hele cirkel teke¬ 


nen door bij een hoek van 0 radialen te 
beginnen en de hoek vervolgens steeds 
een beetje te vergroten (door er bijvoor¬ 
beeld elke keer PI/30 bij op te tellen). Van 
vier punten hebben we in de figuur de 
hoek vermeld in radialen. U kunt zien dat 
we de hoek moeten vergroten tot we bij 
2*PI radialen (360 graden) zijn, omdat 
we dan de hele cirkel doorlopen hebben. 
De punten die we op deze wijze bereke¬ 
nen grenzen niet allemaal aan elkaar. Het 
is daarom niet voldoende om de bereken¬ 
de punten aan te zetten; er zou dan een 
stippellijn ontstaan. Dit kan verholpen 
worden door tussen het berekende punt en 
het voorgaande punt een lijn te trekken. 
In ons voorbeeld hebben we als middel¬ 
punt het punt (0,0) gekozen. Op de com¬ 
puter willen we natuurlijk elk willekeurig 
punt als middelpunt kunnen kiezen. Dit 
kunnen we bereiken door eerst de coördi¬ 
naten ten op zichte van punt (0,0) te bere¬ 
ken en deze vervolgens naar het goede 
punt te verschuiven. Met enig wiskundig 
inzicht kan ingezien worden dat, voor een 
cirkel met een willekeurig middelpunt, de 
formules voor X en Y zijn: 

X = COS(M) * R + MX 
Y = SIN (M) * R + MY 

Hierbij zijn MX en MY respectievelijk de 
x- en de y-coordinaat van het middelpunt. 
Als u met deze twee formules een cirkel 
tekent, zal blijken dat de cirkel niet per¬ 
fect rond is, maar een beetje ovaal. Dit 
komt doordat een pixel niet vierkant, 
maar rechthoekig is. U kunt wel een per¬ 
fecte cirkel tekenen door de straal R in de 
formule voor X met 1.1 te vermenigvuldi¬ 
gen. De formule wordt dan: X = COS(M) 
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* R * 1.1+ MX. Door in de formules voor 
X en Y twee verschillende waarden voor 
R in te vullen, kunt u i.p.v. cirkels ellipsen 
tekenen. Hieronder volgt de Simon’s Ba¬ 
sic listing om een cirkel te tekenen. In re¬ 
gel 50 moet u voor {PI} gewoon de 
Griekse letter gebruiken. 

5 rem cirkels tekenen 
10 input "straal";r 
20 input "middelpunt 
(mx,my)";mx,my 
30 hires 0,15 
40 xl=mx+l.1*r:yl=my 
50 for m=0 to 2*{PI} step 
{PI}/3 0 

60 x2=l.1*r*cos(m)+mx:y2= 
r*sin(m)+my 
70 line xl,yl,x2,y2,1 
80 xl=x2:yl=y2:next 
90 goto 90 

Het programma vraagt de lengte van de 
straal en daarna de coördinaten van het 
middelpunt. Vervolgens tekent de com¬ 
puter de cirkel. 

In regel 40 staat nog een formule die we 
niet besproken hebben. Deze formule 
zorgt ervoor dat XI en Yl de coördinaten 
van het punt rechts van het middelpunt 
zijn, zodat er bij de berekening van het 
eerste punt in regel 60 altijd een voorgan¬ 
ger is, waarnaar een lijn kan worden ge¬ 
trokken. 

Simon’s Basic 

In de listing voor het tekenen van een cir¬ 
kel, hebben we twee Simon’s Basic in¬ 
structies gebruikt. We hadden hiervoor 
ook de hires routines uit de vorige afleve¬ 
ring kunnen gebruiken. Dit hebben we 
niet gedaan omdat het programma door 
de SYS instructies moeilijker leesbaar 
wordt. Voor degenen die geen Simon’s 
Basic hebben, maar wel de hires routines 
uit de vorige aflevering, zullen we aange¬ 
ven wat u in de listing moet veranderen. 
Regel 30 moet veranderd worden in: 

30 poke 53265,peek(53265) or 

32: poke 

53272,peek(53272) or 8 

31 sys 49264:sys 49225,15,0 

Regel 70 moet veranderd worden in: 

70 sys 49186,xl,yl,x2,y2,1 


Sprites op hires 

Net zoals op een tekst scherm kunnen er 
ook sprites op een hires scherm worden 
geplaatst. De regels voor overlapping en 
botsing met pixels zijn precies hetzelfde 
als bij overlapping en botsing met karak¬ 
ters. We zullen ze daarom niet opnieuw 
behandelen. Een uitgebreide beschrijving 


Rectificatie graphics 


I n het vorige nummer (No. 6, 
sept/okt 1989) is er per ongeluk 
wat misgegaan. Bij het artikel 
"Graphics op de 64" zijn een viertal 
illustraties niet afgedrukt. Deze il¬ 
lustraties zijn echter noodzakelijk 
voor een goed begrip van de tekst. 
We hebben deze illustraties alsnog 
in deze aflevering geplaatst. 

Figuur 1 laat een gedeelte van het hires 
scherm zien. Het plaatje verduidelijkt de 
opbouw van het hires scherm. 

Figuur 2 toont de ordening van de bits in 
een byte. 


In figuur 3 staat een tabel, waarmee u de 
codes van de voor- en achtergrondkleuren 
van een hires scherm kunt bepalen. 

Het laatste figuur, figuur 4, bevat een tabel 
die nodig is voor het gebruik van het ap¬ 
plicatie programma, "Hires Routines". 

Ook bij het artikel "Tips & Trucs" is er een 
illustratie weggevallen. Deze illustratie 
moest de waarheidstabellen van AND, OR 
en NOT bevatten. Daar deze illustratie 
niet puur noodzakelijk is voor het volledig 
begrijpen van de tip, wordt deze niet meer 
geplaatst. 

Excuses voor het geleden ongemak. 


200 

bytes 



«-» 

_ _ 46 bytes _ 

Het adres van een bepaald byte kan berekend uj orden door het 
bytenummer urm het byte bij 8192 op te tellen. 
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Kleur 

Voorgrond 

waarde 

Achtergrond 

waarde 

zwart 

0 

0 

wit 

16 

1 

rood 

32 

2 

cyaan 

48 

3 

paars 

64 

4 

groen 

80 

5 

blauw 

96 

6 

geel 

112 

7 

oranje 

128 

8 

bruin 

144 

9 

licht rood 

160 

10 

grijs 1 

176 

11 

grijs 2 

192 

12 

licht groen 

208 

13 

licht blauw 

224 

14 

grijs 3 

240 

15 
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Startadressen van de hiresroutines 


routine 

machine 

taal 

basic 

parameters 

DOT 

LINE 

CLEAR 

COLOUR 

TEST 

FILL 

$C085 

$C0AE 

$C314 

$C336 

$C358 

$C386 

49162 

49186 

49264 

49225 

USR 

49240 

X, Y,MODE 

XI, Yl, X2, Y2, 
MODE 

Achtergrond, 
Voorgrond 
USR(X),Y 

X,Y,MODE 

Vanuit Basic moeten de parameters 
achter het SYS commando worden 
meegegeven. 

Vanuit machinetaal moeten de para¬ 
meters, voor de aanroep van de rou¬ 
tine, achterelkaar op adres $02A7 
en opvolgende adressen worden gezet 
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van deze regels kunt in de aflevering 
’sprites vervolg’ lezen in NO. 5 van Com¬ 
modore Info. 

Multi color hires 

Tot nu toe hebben we het alleen nog maar 
gehad over het zogenaamde single color 
hires. Single color houdt echter niet in dat 
er maar een kleur op het hires scherm ge¬ 
bruikt kan worden, wat bij sprites en ka¬ 
rakters wel het geval was. Single color be¬ 
tekent hier, dat er maar een voor- en ach- 
tergrondkleur per cel gekozen kan wor¬ 
den, zodat er wel meerdere kleuren tege¬ 
lijk op het hires scherm zichtbaar kunnen 
zijn. Er bestaat ook een multi color hires 
mode. Deze staat toe, dat er per cel vier 
verschillende kleuren gekozen kunnen 
worden. Helaas moet een van deze kleu¬ 
ren voor alle cellen gelijk zijn. De andere 
drie kleuren kunnen per cel afzonderlijk 
worden gekozen. 

Het gebruik van de multi color mode loopt 
bij de drie grafische objecten vrijwel pa¬ 
rallel. Net zoals bij karakters en sprites, 
wordt ook deze keer een pixel gerepresen¬ 
teerd door twee bits. Hierdoor wordt het 
scherm grover, omdat het scherm nu nog 
maar 160 pixels in horizontale richting 
heeft. In de vertikale richting heeft het 
scherm nog steeds 200 pixels. En ja, u be¬ 
grijpt het al, met deze twee bits kunnen 
vier bitcombinaties worden gemaakt, te 
weten 00, 01, 10 en 11. Deze vier bitcom¬ 
binaties corresponderen natuurlijk met de 


vier kleuren die u per cel kan kiezen. Een 
byte van het hires scherm representeert nu 
niet acht pixels, maar slechts vier pixels. 
Bit 0 en 1 corresponderen met het meest 
rechtse pixel en bit 6 en 7 met het meest 
linkse. We hebben net gezegd dat een van 
de vier kleuren voor alle cellen gelijk is. 
Bitcombinatie 00 van de twee bits komt 
overeen met deze kleur. De waarde van 
deze kleur moet in adres 53281 worden 
gepoked. De kleur die wordt aangegeven 
met bitcombinatie 11, moet in het kleu- 
rengeheugen worden gepoked. Dit kleu- 
rengeheugen bevindt zich op de adressen 
55296 tot 56295. Dit zijn precies 1000 
adressen. Elk adres komt overeen met een 
cel uit het hires scherm. Voor elke cel kan 
dus een andere kleur worden gekozen, die 
in die cel wordt aangegeven met bitcom¬ 
binatie 11. Nu hebben we nog twee bit¬ 
combinaties over, namelijk 01 en 10. Ook 
voor deze twee bitcombinaties kan per cel 
een andere kleur worden gekozen. Deze 
twee kleuren hebben echter niet allebei 
een apart geheugengebied, maar worden 
weer samengenomen tot een waarde, net 
zoals bij single color hires. Deze waarde 
kan berekend worden met de volgende 
formule: 

waarde = 16 * kleur 01 + 
kleur 10 

Kleur 01 is de kleur die wordt aangegeven 
met bitcombinatie 01 en kleur 10 is de 
kleur die wordt aangegeven met bitcombi¬ 


natie 10. De berekende waarde moet in 
het schermgeheugen worden gepoked. Dit 
schermgeheugen bevindt zoch op de 
adressen 1024 tot 2023. Elk adres corres¬ 
pondeert weer met een cel. 

Tenslotte moeten we de computer in de 
multi color mode brengen. Hiervoor moet 
bit 4 van adres 53270 worden aangezet. 
Dit kunt u doen met 

POKE 53270,PEEK(53270) OR 16. 

He, he, eindelijk zijn we door de taaie 
theorie heen. We dachten zo dat u nu wel 
een redelijke basis had op het gebied van 
high resolution. Als hulp bij het program¬ 
meren hebben we alle adressen die te ma¬ 
ken hebben met hires in figuur 1 afge- 
beeld. Zoals we al hebben aangegeven 
heeft u deze basis nodig bij het onderwerp 
'Computer Art’. Aan dit onderwerp zullen 
we een aantal afleveringen besteden. De 
volgende aflevering zal in zijn geheel ge¬ 
wijd zijn aan Computer Kunst. Hoi, hoi! 

Michel de Boer Hylke Sprangers 
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Diskdrives voor de 128 



A ls we het over randapparatuur 
voor computers hebben dan 
denken we natuurlijk eerst aan 
een diskdrive. Immers wat heb je 
nu aan een computer zonder een 
diskdrive? vrijwel niets.’Maar je 
kunt toch ook een datarecorder 
gebruiken’, horen we nu een aan¬ 
tal mensen roepen. Jazeker dat 
kan, je kunt ook het kanaal over 
zwemmen om in Engeland te ko¬ 
men, maar waarom zou je moe¬ 
lijk doen als het makkelijk kan. 
Gelukkig zag commodore dit ook 
in en ontwierp destijds al een disk¬ 
drive voor de VIC-20 ( weet u 
nog?). 

Sinds de VIC 20 is er voor elke commo¬ 
dore machine een diskdrive ontworpen en 
op de markt gebracht. Zo ook voor de 
commodore 128. Er zijn er twee, namelijk 
de 1570 en de 1571. Het verschil tussen 
beide is dat de een enkel zijdige diskettes 
gebruikt en de andere dubbelzijdige. 

In dit artikel nemen we een aantal inter- 
ressante mogelijkheden van deze drive’s 


onder de loep, want de 1570 en de 1571 
kunnen meer dan menig 128 gebruiker 
weet. Hoe zijn nu het ontwerp van deze 
diskdrives tot stand gekomen ? Daarvoor 
moeten we helemaal terug naar de 'pre¬ 
historie’ voor wat computers betreft na¬ 
melijk terug naar de CBM 4040 drive’s. 
Dat zijn die oude robuust uigevoerde 
'bakken' met twee drive’s er in. Deze 
diskdrive beschikte over twee microproc- 
cesoren, een voor de databeheer en de an¬ 
der voor de drive besturing het zoge¬ 
naamde multi-proccesor systeem. Dit 
systeem van twee proccesors moest het 
systeem sneller maken. Toen kwam com¬ 
modore met de VIC-20 op de markt en 
daar moest natuurlijk ook een diskdrive 
bij. En waarom zou je een geheel nieuwe 
diskdrive laten ontwerpen als je al een 
hebt die prima werkt, moeten de experts 
bij commodore gedacht hebben. En dus 
werd de 4040 drive eens flink onder han¬ 
den genomen, we slopen er een drive bij 
weg en bouwen de DOS (het bestuurings 
systeem dat in een rom in de diskdrive zit 
opgeslagen) eventjes om en hoppa, de 
1540 diskdrive was geboren. 

De 1540 heeft één proccesor, de andere 
die wel in de 4040 aanwezig was werd 


dus gewoon weggelaten. Het gevolg hier¬ 
van was dat die ene micro-proccesor alle 
taken moest uitvoeren die voorheen door 
twee proccesors werden uitgevoerd, en u 
begrijpt al dat dat de snelheid niet tengoe¬ 
de komt. Hierna kwam de C-64 op de 
markt en hierbij moest natuurlijk ook 
weer een diskdrive komen. Vervolgens 
werd, onder het motto 'waarom zouden 
we moelijk doen als het makelijk kan’, de 
1540 open geschroeft en eventjes omge¬ 
bouwd in een 1541. 

De DOS van de 1541 is praktisch gelijk 
aan die van de 1540 alleen werden de rou¬ 
tines voor de seriële bus aangepast omdat 
de de klokfrequentie van deze C-64 iets¬ 
jes lager ligt als die van de VIC-20. Hier¬ 
door werkt de besturing van de seriële bus 
nog weer langzamer en hiermee het wer¬ 
ken met de 1541 natuurlijk. De DOS voor 
de 1570 en de 1571 diskdrive bestaat uit 
16 Kbyte. 8 Kbyte van de 1541 plus 12 
Kbyte nieuw besturing systeem. En u 
raad het alweer, ‘we passen dit systeem¬ 
pje eventjes aan en dit proppen we er ook 
bij en zie hier de DOS voor de 1570 en de 
1571 is klaar' moeten ze bij commodore 
gedacht hebben. De nieuwste versie de 
DOS v3.0 maakt de chaos compleet. Dit 
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C-128 


open 15, 8, 15, "uO>mO" : dcl.ose 


"uO"+chr$(31)+"functie" of 
"uO>functie" 


functie: 



besturingssysteem is bedoeld voor twee 
drives met een multiproccesorsysteerti. 
Kortgezegt komt het er op neer dat de 
DOS van de 1570 en de 1571 een zootje 
bij elkaar geschraapte routines zijn. 

Nu moet u niet meteen uw 1570 of 1571 
in de afvalbak gooien want zo erg is het 
nu allemaal ook weer niet. Als je maar 
weet waar de foutjes zitten kun je die zo 
ontwijken en dan is er geen vuiltje aan de 
lucht. Wat is de bedoeling nu precies? 
Welnu in dit artikel gaan we eerst uitleg¬ 
gen wat er zoal mogelijk is met de zoge¬ 
naamde USER 0 functie’s. En in het vol¬ 
gende nummer van uw eigen lijfblad 
plaatsen we een programma waarmee het 
mogelijk is tekst files van de commodore 
128 over te zetten naar een MS-DOS 
computer. Uiterst nuttig voor de geluks¬ 
vogels onder ons die beide machines thuis 
hebben staan, maar ook interresant voor 
die gene die niet over deze twee compu¬ 
ters beschikt. Immers als je zelf niet over 
een printer beschikt maar de buurman 
heeft er wel eentje op zijn PC aan geslo¬ 
ten en er moet een tekst uitgeprint wor¬ 
den, no problem, de 128 tekst file over 
zetten naar een MS-DOS diskette en uit¬ 
printen maar. Maar zover is het nog niet, 
eerst moeten we nog even uitleggen hoe 
het een en ander werkt. 

DE USER 0 functie. 

Vrijwel iedere C-128 gebruiker weet dat 
zijn 1570 en of zijn 1571 diskdrive over 
een 1541 mode beschikt en als u dat nog 
niet wist dan weet u het nu dus wel. Het 
omschakelen van de 1571 mode naar 
1541 mode kan op twee manieren gedaan 
worden. De ene methode is hardware ma¬ 
tig, als u oversehakeld naar C-64 mode 
wordt de diskdrive automatisch in de 
1541 mode gezet. Maar het over schake¬ 
len kan ook software matig en wel als 
volgt: 


Dit is nu een voorbeeld van een USER 0 
functie. Dit is wel de meest bekende maar 
er zijn er meer leest u maar verder. 

De USER 0 functies werken alleen in de 
1570 of de 1571 mode behalve de instruc¬ 
tie H en moet aan de volgende systax vol¬ 
doen. 


• Ml schakeld de 1571 mode in. De 
diskdrive elektronica wordt 
nu omgeschakeld naar 2 MHz. Via 
deze functie kan de 1571 
modus ook in c-64 mode gebruikt 
worden. 


• MO schakeld de 1541 mode in. De 
diskdrive werkt nu op 1 MHz. 

De volgende functie werkt alleen bij de 
1571 in de 1541 mode. 

• HO De lees-, en schrijfkop aan kant 1 
is nu in gebruik. 


• H1 De lees-, en schrijfkop aan kant 2 
is nu in gebruik. 

Bij de M en H functie kan met bit 7 aan¬ 
gegeven worden of de diskette ook geini- 
tialiseerd moet worden. 


1 = de diskette wordt niet geinitialiseerd. 


Rx stelt het aantal leespogingen van de 
drive in, x is hier de ascii waarde van het 
aantal leespogingen die gewenst zijn. 

T met deze instructie kan een ROM 
checksum routine aangeroepen worden. 
Deze routine controleert over de ROM 
nog in een goede staat verkeerd. 

X de ascii waarde x wordt nu het nieuwe 
apparaatadres. 

Dit zijn allemaal USER 0 functies die in 
de normale 1570 of 1571 mode werken. 
Maar de belangrijkste USER 0 functies 
gelden als de drive in de CP/M mode 
wordt gebruikt. CP/M mode? Jazeker de 
diskdrive beschikt net als de computer 
over de mogelijkheid om in een CP/M 
mode te werken. Hiervoor is er in de disk¬ 
drive een speciale controller opgenomen, 
de WD 1770. Met behulp van deze con¬ 
troller kan de 1570 en de 1571 maarliefst 
9 verschillende diskette formaten lezen 
en schrijven. Het programma dat in het 
volgende nummer van dit blad zal staan 
werkt met behulp van deze controller. We 
zullen dan ook uitgebreid op de mogelijk¬ 
heden van deze speciale drive functies in- 
I gaan. 



Dus met 

"uO" + chr$ (31)+"fucntie" 

wordt de diskette geïnitialiseerd. 

En met 

"uO" + chr$ (159) +"functie" 

wordt de diskette niet geïnitialiseerd. 
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Checksum C-64 



O 

O 


Syntax Checksum 


Het overtikken van een listing kan een heel kar¬ 
wei zijn en als u een beetje normaal mens bent, 
dan maakt u daarin beslist een aantal fouten. Nu 
is niets moeilijker da fouten uit je eigen werk te 
halen. Al geruime tijd heeft Jan Bodzinga hier¬ 
voor een zgn. Checksum-programma geschre¬ 
ven. Om de vele nieuwe lezers van Commodore- 
info te helpen volgt hieronder nog een keer een 
volledige uitleg over de werking van dit program¬ 
ma, waarmee het, hoe vreemd dat misschien ook 
lijkt, echt mogelijk is om met behulp van dit pro¬ 
gramma de fouten in elke door ons geplaatste lis¬ 
ting op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een dis¬ 
kette of cassette. 

2. U tikt het RUN commando in. Mocht het pro¬ 
gramma de boodschap 'FOUT in dataregels!’ ge¬ 
ven dan heeft u een fout bij het overtikken ge¬ 
maakt. Herstel dan de fout en SAVE de verbeter¬ 
de versie. Mocht het programma met de bood¬ 
schap 'data is weggezet checksum testen met 
sys...'komen dan is tot dusver alles goed. Het 
programma is nu in een stukje machine- 
taalgeheugen gezet. Als u het NEW-commando 
geeft, blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Ba¬ 
sic geschreven. 

Als u een programma heeft overgetikt, SAVE het 
eerst; mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu 
een programma op fouten wilt gaan controleren, 
kunt u dat in het geheugen laden(wel eerst het 
checksum programma hebben gerund). Vervol¬ 
gens typt u zonder het programma te runnen de 
opdracht sys 49152(c-64) of sys 1536 (c-16 en 
plus/4) in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons ge¬ 
plaatste programma. Wijkt nu een nummer achter 
een regelnummer af van het nummer dat in het 
blad staat dan heeft u in die regel iets anders 
ingetikt dan er in het blad stond. U kunt de 
stroom getallen met de RUN/STOP toets pauze¬ 
ren en weer vervolgen met de F1 of F7 toets. Het 
is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze 
listingservice telefoonlijn. (Maandag 17.00 - 21.00 
uur. Telefoonnummer 02155-25162.) 

De laatste tijd wordt er weer veel gebeld zodat U 
nogwel eens in gesprek krijgt, daarom houdt uw 
vraag kort, vermeld in welk blad het desbetreffen¬ 
de artikel stond. Heeft U veel vragen, of is uw 
vraag erg uitgebreid, doe het dan schriftelijk, zo¬ 
dat we veel mensen op de maandag avond te 
woord kunnen staan. 


1 rem ****************************** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new" 

4 rem blijft dit programma in het ge~ 

5 rem beugen, leed bet te testen pre— 

6 rem gramma en tik daarna sys 49152. 

7 rem ****************************** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelezen 
30 pokei,a:i=i+l:b=b+a:goto20 
40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0:end 
50 poke49184,148:poke49185, 192 

55 i=49300 

60 read a: ifa<0then80 
70 pokei,a:b=a+b:i=i+l:goto60 
80 if b<>20068thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet" 

9 5 print"checksum[SPACE]testen[SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73,192 

120 data 32,73,192,208,1,96,32,225,255,208 

130 data 3,76,116,164,32,81,192,32,73,192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 
77,163 

180 data 96,162,0,189,123,192,240,6,32,210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 
133,167 

220 data 164,168,96,82,69,71,69,76,32,0 
230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


Checksum Checksum C-64 


REGEL 

1 

24 9 

REGEL 

100 

18 3 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

18 3 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 

38 

REGEL 

190 

73 

REGEL 

40 

57 

REGEL 

200 

79 

REGEL 

50 

14 

REGEL 

210 

109 

REGEL 

55 

251 

REGEL 

220 

106 

REGEL 

60 

192 

REGEL 

230 

225 

REGEL 

70 

42 

REGEL 

240 

16 

REGEL 

8.0 

244 

■ REGEL 

250 

163 

REGEL 

90 

245 

REGEL 

260 

92 

REGEL 

95 

237 

REGEL 

2 70 

22 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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PRINT OUT C-64 met o.a.Spreadsheet 


Apenspel 64 


Dit spel, geschreven door F. Reijsbergen, moet 
tegen de computer worden gespeeld. Onze trou¬ 
we lezers zullen zeker uit de naam van de inzen¬ 
der kunnen op maken wat dit betekent, juist ja, 
niet eenvoudig om het spel te kunnen winnen. Op 
het scherm worden een aantal apen getekent, en 
deze zijn ziek. De bedoeling is nu om deze apen 
beter te maken. De computer probeert dit ook. 
Maar de winnaar is diegenen die de laatste aap 
beter maakt. Er mogen maximaal twee apen te¬ 
gelijk worden aangewezen, en alleen nog als ze 
vlak naast elkaar staan. 

1 rem het apen spel / commodore 64 

2 rem door fons reijsbergen 

3 rem leidschendam 

4 rem 

10 poke53280,5:poke53281,5 rprint"[CTR 

L 1][SHIFT-CLR]":gosub520 
20 1$="[CTRL-8]#%%[CRSR-DOWN][3xCRSR- 

LEFT]('&[CRSR-DOWN][3xCRSR-LEFT])* 
+[2xCRSR-UP][CRSR-RIGHT][CTRL-1]": 
k$="#$%[CRSR-DOWN][3xCRSR-LEFT]&'( 
[CRSR-DOWN][3xCRSR-LEFT])*+[2xCRSR 
-UP][CRSR-RIGHT]":t$="[4xCRSR-DOWN 
]":k=7:restore 

30 print"[SHIFT-CLR]":a$="11111111111 

11":dimt(13):fori=ltol3:readt(i):n 
ext:e=l 

40 gosub350:input"wie[SPACE]mag[SPACE 

]er[SPACE]beginnen[SPACE]comp[SPAC 
E]of[SPACE]mens";i$:ifleft$(i$, 1) = 
"c"then220 
50 e=0 

60 i$="":input"[CRSR-UP]welke[SPACE]a 

ap[SPACE]maak[SPACE]je[SPACE]beter 
[15xSPACE][8xCRSR~LEFT]";i$:ifi$=" 
"then60 

70 iflen(i$)>2then60 

80 l=len(i$):fori=ltol:ifmid$(i$,i,1) 

<"a"ormid$(i$,i,1)>"m"then60 
90 nexti:a=asc(i$)-64:a$=mid$(a$,1, a- 

1)+"0"+right$(a$, 13-a) 

100 ifl=2anda<13thena$=mid$(a$,1,a)+"0 

"+right$(a$,12-a) 

110 w=l: gosub450 :gosub350:print"een[SP 

ACE]ogenblik[SPACE]ik[SPACE]denk[S 
PACE]na[12xSPACE]" 

120 ife=lthen670 

130 fork=ltol3:ifmid$(a$, k, l)="0"thenl 

90 

140 b$=mid$(a$,1,k-1)+"0"+right$(a$, 13 

-k):gosub280 

150 gosub320:ifok=lthend=0:goto230 

160 ifk=13ormid$(a$,k+1,l)="0"thenl90 

170 b$=mid$(b$,1,k)+"0"+right$(b$, 12-k 

):gosub280:ifa=landr(1)=0thend=l:g 
oto230 

180 gosub320:ifok=lthend=l:goto230 

190 nextk:fori=ltol3:ifmid$(a$,k, 1) ="1 

"then220 

200 fork=ltol3:ifmid$(a$,k,1)="l"then2 

20 

210 nextk:w=0:goto450 

220 b$=mid$(a$,1,k-1)+"0"+right$(a$,13 


-k):d=0 

230 a$=b$:gosub350:print"ik[SPACE]neem 

[SPACE]aapje[SPACE]";chr$(k+64);:i 
£d=lthenprintchr$(k+65); 

240 print”[23xSPACE]" 

250 w=0:gosub450 

260 geti$:"th@n260 
270 goto60 

280 £ori=ltol0: r (i)=0:next:a=l:£ori=lt 

ol3 

290 ifmid$(b$,i,1)="l"thenr(a)=r(a)+1: 
goto310 

300 ifr(a)<>0thena=a+l 
310 next:return 

320 b=0:fort=ltoa:b=b+t(r(t));next:c$= 

mid$(str$(b),2):ok=0 
330 fori=ltolen (c$) :ifval(mid$(c$,i,1) 

)/2<>int(val(mid$(c$,i,1))/2)thenr 
eturn 

340 nexti:oke=l:return 

350 print"[HOME]************[SPACE]het 
[SPACE]apen[SPACE]spel[SPACE]***** 
********" 

360 print"[3xCRSR-DOWN]"tab(11)"a[3xSP 

ACE]b[3xSPACE]c[3xSPACE]d[3xSPACE] 
e":printt$tab(13)"f[3xSPACE]g[3xSP 
ACE]h[3xSPACE]i" 

370 printt$tab(15)"j[3xSPACE]k[3xSPACE 
]1":printt$tab(19)"m[HOME]":printt 
ab(10);:fori=lto5 

380 gosub430:nexti:print:printt$tab(12 
);:fori=6to9:gosub430:next:print 
390 printt$tab(14);:fori=10tol2:gosub4 
30:next:print:printt$tab(18); 

400 ifmid$(a$,13,i) = "1 "thenprintl$:got 

o420 

410 printk$ 

420 print"[3xCRSR-DOWN]return 
430 ifmid$(a$,i,1)="l"thenprintl$;:ret 
urn 

440 printk$return 

450 ifa$O"0000000000000"thenreturn 

460 gosub350:ifw=lthenprint"de[SPACE]m 
ens[SPACE]:goto480 
470 print"de[SPACE]computer[SPACE]"; 
480 prinfheeft [ SPACE ] gewonnen [17xSPAC 

E] " 

490 input"nog[SPACE]maals[SPACE]een[SP 

ACE]spel[SPACE]j/n[SPACE]";i$ 

500 ifi$="j"thenrun2 0 

510 stop 

520 print"[HOME]************[SPACE]het 
[SPACE]apen[SPACE]spel[SPACE]***** 
********[2xCRSR-DOWN]" 

530 print"maak[SPACE]de[SPACE]apen[SPA 

CE]beter.":print"[CRSR-DOWN]diegen 
e[SPACE]die[SPACE]de[SPACE]laatste 
[SPACE]aap[SPACE]beter[SPACE]maakt 

II 

540 prinf’heeft[SPACE]gewonnen.":print 
"[2xCRSR-DOWN]je[SPACE]maakt[SPACE 
]een[SPACE]aap[SPACE]beter[SPACE]d 
oor[SPACE]de[SPACE]letter" 

550 print"in[SPACE]te[SPACE]typen[SPAC 

E]die[SPACE]onder[SPACE]de[SPACE]a 
ap[SPACE]staat." 

560 print"j e[SPACE]kunt[SPACE]een[SPAC 

E]of[SPACE]twee[SPACE]apen[SPACE]b 
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o 

o 

o 
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eter[SPACE]maken.[3xSPACE]als[SPAC 
E]j®[SPACE]kiest[SPACE]voor[SPACE] 
twee[ SPACE japen"; 

570 print"[SPACE]dan[SPACE]moeten[2xSP 

ACE] slat [SPACE] apen [SPACE] rijn [SP AC 

E]flie[ space] naast[ space] elkaar [spa 

CE]staan." 

580 print"bv.[SPACE]-ab-[ space] of [spac 
E]- ef-.[CRSR-DOWN]":print"als[SPAC 
E]de[SPACE]computer[SPACE]geweest[ 
SPACE]is[SPACE]moet[SPACE]je[SPACE 

]©p" 

590 print"een[SPACE]toets[SPACE]drukke 

n[SPACE]en[SPACE]dan[SPACE]pas[SPA 
CE]je[SPACE]keus[SPACE]in-typen." 
600 fori=ltol3:reada:next 

610 poke56334,peek(56334)and254:pokel, 

peek(1)and251:fori=0to500 
620 pokei+12288,peek(i+53248):next:for 

i=280to351:reada:pokei+12288,a:nex 
t 

630 pokel,peek(1)or4:poke56334,peek(56 

334)orl:poke53272,28 

640 print"[2xCRSR-DOWN][9xSPACE]druk[S 
PACE]op[SPACE]een[SPACE]toet s" 

650 geti$:ifi$=""then650 
660 return 
670 d=0:ifl=2thend=l 

680 ifa>7thenk=a-7 
690 ifa<7thenk=a+7 

700 b$=mid$(a$,1,k-1)+"0"+right$(a$,13 
-k) 

710 ifl=2andk<13thenb$=mid$(b$, 1, k)+"0 
"+right$(b$,12-k) 

720 goto230 

730 datal,10,11,1,100,11,10, 1,100,10, 1 
10,100,1,0,0,0,0,1,3,103,158,8,50, 
127 

740 data255,255, 220, 8,107,0, 0,0, 128, 19 
2,224,118,57,206,174,174,143,95,39 
,7,7 

750 data235,235,73,0,128,227,182,42, 18 
7,187,57,121,250,244,240,112,14,12 
,7,3,1 

760 dataO,0,0,34,0,28,34,193,34,28,0,5 
6,24,112,96,192,0,0,0 
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Cheeksum apenspel 64 

REGEL 

1 

G 

REGEL 

390 

67 

REGEL 

2 

41 

REGEL 

400 

64 

REGEL 

3 

36 

REGEL 

410 

8 

REGEL 

4 

143 

REGEL 

420 

216 

REGEL 

10 

199 . 

REGEL 

4.30 

.183 

REGEL 

20 . 

4 8 

REGEL 

440 - 

11 

REGEL 

30 

7 

REGEL 

450 

61 

REGEL 

4 0 

122 

REGEL 

460 

254 

REGEL 

50 

39 

REGEL 

4 70 

16 

REGEL 

GO 

33 

REGEL 

480 

170 

REGEL 

70 

252 

REGEL 

490 ' 

150 

REGEL 

80 

6 

REGEL 

iSH 

203 

REGEL 

90. 

203 

REGEL 

510 

144 

REGEL 

100 

140 

REGEL 

520 

101 

REGEL 

110 

120 

REGEL 

530 

120 

REGEL 

120 

.247 

REGEL 

540 

183 

REGEL 

130 

55 

REGEL 

550 

237 

REGEL 

140 

118 

REGEL 

560 

73 

REGEL 

150 

137 

REGEL 

570 

78 

REGEL 

160 

50 

-/ REGEL 

580 

59 

REGEL 

170 

15 

REGEL 

590 

235 

REGEL 

180 

138 

REGEL 

600 

115 

REGEL 

190 

55 

REGEL 

610 

2 

REGEL 

200 

50 

REGEL 

620 

4 

REGEL 

210 

156 

REGEL 

630 

129 

REGEL 

220 

117 

REGEL 

640 

59 

REGEL 

230 

■ 217 

REGEL 

650 

120 

REGEL 

240 

221 

REGEL 

660 

142 

REGEL 

250 

153 

REGEL 

670 

233 

REGEL 

260 

117 

REGEL 

680 

123 

REGEL 

270 

239 

REGEL 

690 

124 

REGEL 

280 

195 

REGEL 

700 

21 

REGEL 

290 

88 

REGEL 

710 

173 

REGEL 

300 

185 

REGEL 

720 

30 

REGEL 

310 

74 

REGEL 

730 

244 

REGEL 

320 

70 

REGEL 

740 

164 

REGEL 

330 

194 

REGEL 

750 

24 6 

REGEL 

340 

143 

REGEL 

760 

49 

REGEL 

350 

67 




REGEL 

360 

174 




REGEL 

370 

136 




REGEL 

380 

103 




Galgje 64 


Ook dit overbekende spel is er weer één uit de i 
grote voorraad van F. Reijsbergen uit Leidschen- 
dam. Een uitleg hoeven we er eigenlijk niet meer 
bij te geven, de bedoeling is het woord dat de 
computer in zijn geheugen heeft genomen te ra¬ 
den. Elke keer dat er op een verkeerde letter j 
wordt gegokt, dan kom je een stukje dichter bij j 
de galg. En elke stap brengt je, gelukkig alleen 
maat figuurlijk, dichter bij het einde. 

1 rem galgje / cbm-64 

2 rem program door fons reijsbergen 

3 rem sprites door fred reijsbergen 

5 rem leidschendam I 

6 rem 

10 poke52,48:poke56,48:clr:poke53269, 

0:poke53280,3:poke53281,3 
20 gosub400 [' 

30 t$="[HOME][22xCRSR-DOWN]":p$="." 

40 1$="[34xSHIFT-*]":g0=0:f0=0 

50 pokev+21,0:print"[SHIFT-CLR][HOME] 

[CTRL-1][CRSR-DOWN]"tab(16)"GALGJE 

II 

60 print"[COM-2]"left$(t$,13)tab(16)" 

[CTRL-9][SPACE][CTRL-0][COM-X]" 

70 print"[16xCOM-'][CTRL-9][3xSPACE][ | 

CTRL-0][COM-I][20xCOM-'][CTRL-2]" i 

80 print"[CRSR-DOWN][COM-A][2xSHIFT-* 

]"1$"[2XSHIFT-*][COM-S][SHIFT--]": | 

print"[CRSR-LEFT][2xSHIFT—][2xSFA 
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CE]Het[SPACE]woord:[26xSPACE][2xSH 
IFT 

90 print"[CRSR-LEFT] [2stSHIFT—] [llxSP 
ACE] Geef [SPACE] letter [5xSPA.CE] " :pr 
int"[CRSR-LEFT][2xSHIFT—][2XSPACE 
] "1$" [2xSPACE] [SHIFT — ] 

100 print"[SHIFT--][2xSPACE]Goed[8xSPA 
CE]Fout[8xSPACE]Score[4xSPACE]%[2x 
SPACE] [SHIFT—]"; ; print" [COM-Z] [2x 
SHIFT-*]"1$"[2xSHIFT-*][COM-X]"; 
110 poke2040,192 :ps=0 :gosub340:pokev+2 

1,63:ifgO+f0>0thengosub330 
120 w$=a$ (rnd(0) *an+l):r$="":le=len(w$ 

) : fori=ltol@ : r$=r$+" . " : next :ps=l : r 
1=1 

130 gosub340:foril=lto3:gosub310:nexti 
1 

140 printleft$(t$,21)tab(24)rlleft$(t$ 
,19)tab(14)r$:rl=rl+l:pokel98,0 
150 geti$:ifasc(i$+chr$(0))<65orasc(i$ 
+chr$(0))>90thenl50 
160 gosub310:k=0:fori=ltole 
170 ifi$=mid$(w$,i,1)andmid$(r$,i,1)=p 

$thenr$=left$(r$,i-1)+i$+mid$(r$,i 
+1):k=l 

180 next:ifr$=w$thenprintleft$(t$, 19)t 
ab (14)w$:gosub220:goto50 
190 ifk=lthenl40 

200 ps=ps+l:ifps<llthengosub340:gotol4 
0 

210 printleft$(t$,19)tab(14)w$:gosub36 
0:goto50 

220 ps=12:gosub340: g0=g0+l :gosub330:pr 

intleft$(t$,21)tab(12)"Nog[SPACE]e 
en[SPACE]woord[SPACE]? ?" 

230 fori=125tol22step-l:pokev+7,i:poke 
v+9,i:for j=ltol0 :nextj,i 
240 geti$:ifi$="j"thenreturn 

250 fori=122tol25:pokev+7,i:pokev+9, i: 

for j=ltol0 :nextj,i 
260 geti$:ifi$="j"thenreturn 
270 goto230 

280 s=54272:fori=0to23:pokes+i,0:next: 

pokes+24,15:return 

290 gosub280:pokes+5,10:pokes+6,75:pok 
es+15,10:pokes+14,10:pokes+l,4:pok 
es+4,21 

300 fori=lto50:next:pokes+4,20:return 
310 gosub280:pokes+6,240:pokes, 15:poke 
s+1,67:pokes+4,17 

320 forpz=ltol00 :next:pokes+4,16:retur 
n 

330 printt$tab(8)g0;tab(20)f0;tab(33)i 
nt(g0*(100/(g0+f0)+.1))"[CRSR-LEFT 
]%[SPACE]":return 

340 pl=a(ps,1):p2=a(ps,2):pokev+2,pl:p 
okev+3,p2:pokev+4,pl:pokev+5, p2 
350 pokev+6,pl-1:pokev+7,p2-15:pokev+8 

,pl-1:pokev+9,p2-15:return 
360 poke2040,193:fori=a(10,2)toa(11,2) 

:pokev+3,i:pokev+5,i:for j=ltol0 :ne 
xt j, i 

370 f0=f 0+1:gosub330:printleft$(t$, 21) 

tab(12)"Nog[SPACE]een[SPACE]woord[ 
SPACE]??" 

380 gosub290:fori=lto300:geti$:ifi$="j 
"thenreturn 
390 next:goto380 


400 printchr$(14)"[SHIFT-CLR][CTRL-2][ 
6XCRSR-DOWN][14xCRSR-RIGHT]wacht[S 
PACE]event j e s" 

410 v=12352:£ori=0to62:reada:pokel2288 

+i,a:pokev+i,a:next 

420 fori=v+25tov+53step3:pokei,192:nex 

t:fori=12416tol2734:reada:pokei, a: 
next 

430 v=194:fori=2041to2045:pokei,v:v=v+ 

1;next:v=53248:dima(12,2) 

440 fori=v+37tov+44:reada:pokei, a:next 

:fori=0tol2:reada(i,l),a(i,2):next 
450 pokev+23,32:pokev+27,0:pokev+28,21 
:pokev+29,1 

460 pokev,105:pokev+l,140:pokev+10,107 
:pokev+11,98 

470 readan:dima$(an):fori=ltoan:reada$ 
(i):next 

480 print"[SHIFT-CLR]return 
490 data32,0,0,32,0,0,32,0,0,32,0,0,32 
,0,0,32,0,0,170,170,170,170,170,17 
0 

500 data34,255,136,42,255,168,40,0,40, 
32,0,8,32, 0,8,32, 0, 8, 32, 0, 8,32,0,8 
,32,0 

510 data8,32,0,8,32,0,8,32,0,8,32,0,8 
520 datal,254,0,7,3,128,4,132,128,4,13 
2,128,4,132,128,2,133,0,2,133,0,2, 
133, 0 

530 data3,135,0,4,252,128,9,182,64,7,5 

1,128,1,50,0,1,50,0,1,50,0,1,50,0 
540 datal,50,0,1,50,0,0,180,0,1, 122,0, 
2,73,0,0 

550 dataO,252,0,3,255,0,3,255, 0,3,255, 
0,3,255,0,3,255,0,3,255,0,3,255,0, 
3,255 

560 dataO, 1, 169, 0,5,169, 64,0, 168,0,0,1 
68,0,0,168,0,0,168,0,0,168,0,0,168 
,0,0 

570 datal68,0, 0, 168, 0, 0, 68,0, 1, 69, 0,0 

580 dataO,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,195,0,0,36,0,0,24 
590 dataO,0,0,0,1,60,128,1,66,128,0,12 
9,0,0,102,0,0,36,0,0,36,0,0,36,0,0 
,36 

600 dataO,0,36,0,0,36,0,0 
610 dataO,0,0,0,0,0,0,0,0,0,0,0,0,170, 
0,2,170,128,2,170,128,2,85,128,2,2 
15 

620 datal28,2,85,128,2,85,128,1,85, 64, 
0,125,0,0,85,0,0,20,0,0,20,0,0,20 
630 dataO,0,20,0,0,20,0,0,20,0,0,20,0, 

0 

640 datal27,255,255,24,192,4,25, 128,4, 
27,0,4,30,0,4,28,0,4,24,0,4,24,0,4 
650 data24,0,4,24,0,4,24,0, 10,24,0,17, 
24,0,17,24,0,14,24,0,0,24,0,0,24,0 
,0 

660 data24,0,0,24,0,0,24,0,0,24,0,0 
670 datalO, 6, 9, 0, 7, 0, 9, 9 
680 datal5,15,255,140,238,140,225, 140, 
210,140,195,140,180,140,170,137,15 
5,129 

690 datal35,125,118,125,118,131,50,140 
700 : 

710 : 

720 rem ******************************* 

*de woordenlijst kun je 1 
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anger* 

730 rem*maken. het getal in regel 770* 
*gee£t het aantal woorden 

aan * 

740 rem******************************* 

750 : 

760 : 

770 data58:rem****aantal woorden**** 

780 datagalgje,auto,boot,vliegtuig, fie 
ts,bromfiets,printer,computer 

790 datadiskdrive,disk,beeldscherm,toe 
tsenbord,spel,prgramma,potlood,pap 
ier 

800 datawoordenboek,woorden, boek, leesb 
oek,plant,onkruid,bloem,bloembol 

810 datavogel,vis,zoogdier,mens, insekt 
,lucht,aarde,vuur,zon,maan,sterren 

820 dataland,zee,strand,zand,water,woe 
stijn,oerwoud,moeras,droog,nat,war 
m 

830 datakoud,hoog,laag,ver,dichtbij,hi 
er,daar,waar,heen,terug,komen,gaan 

EINDE LISTING galgje 64 _ 


Checksum Galgje 64 


REGEL 

i 

209 

REGEL 

410 

114 

REGEL 

2 

65 

REGEL 

420. 

7 

REGEL 

3 

62 

REGEL 

430 

184 

REGEL 

5 

36 

REGEL 

440 

62 

REGEL 

6 

143 

REGEL 

450 

134 

REGEL 

10 

219 

REGEL 

460 

56 

REGEL 

20 

33 

REGEL 

470 

177 

REGEL 

30 

201 

REGEL 

480 

56 

REGEL 

40 

11 

REGEL 

4 90 

165 

REGEL 

50 

213 

REGEL 

500 

155 

REGEL 

60 

80 

REGEL 

510 

255 

REGEL 

70 

56 

REGEL 

520 

146 

REGEL 

80 

43 

REGEL 

530 

105 

REGEL 

90 

213 

REGEL 

540 

142 

REGEL 

10Ó 

192 

REGEL 

550 

144 

REGEL 

110 

18 

REGEL 

560 

105 

REGEL 

120 - 

46 

REGEL 

570 

3 

REGEL 

130 

164 

REGEL 

580 

161 

REGEL 

140 

41 

REGEL 

590 

8 

REGEL 

150 

228 

REGEL 

600 

169 

REGEL 

160 

164 

REGEL 

610 

213 

REGEL 

170 

3 

REGEL 

620 

105 

REGEL 

180 

128 

REGEL 

630 

39 

REGEL 

190 

245 

REGEL 

640 

171 

REGEL 

200 

115 

REGEL 

650 

207 

REGEL 

210 

244 

REGEL 

660 

127 

REGEL 

220 

211 

REGEL 

670 

144 

REGEL 

230 

54 

REGEL 

680 

192 

REGEL 

240 

181 

REGEL 

690 

67 

REGEL 

250 

177 

REGEL 

700 

58 

REGEL 

260 

181 

REGEL 

710 

58 

REGEL 

270 

30 

REGEL 

720 

92 

REGEL 

280- 

181 

REGEL 

730 

174 

REGEL 

290 

196 

REGEL 

740 

165 

REGEL 

300 

202 

REGEL 

750 

58 

REGEL 

310 

209 

REGEL 

760 

58 

REGEL 

320 

92 

REGEL 

770 

216 

REGEL 

330 

79 

REGEL 

780 

55 

REGEL 

340 

142 

REGEL 

790 

91 

REGEL 

350 

64 

REGEL 

800 

213 

REGEL 

360 

127 

REGEL 

810 

116 

REGEL 

370 

129 

REGEL 

820 

174 

REGEL 

380 

53 

REGEL 

830 

173 

REGEL 

390 

224 




REGEL 

400 

201 





Spreadsheet 64 


De Heer O.R. Vos uit Amersfoort volgde een cur¬ 
sus Lotus 1 2 3. Thuis achter zijn trouwe Com¬ 
modore 64 heeft hij zijn pas verworven kennis 
gekombineerd met reeds bestaande program¬ 
meer kennis gekoppeld tot het volgende program¬ 
ma. Een uitleg hoe het programma gebruikt moet 
worden is in het programma opgenomen. Deze 
wordt verkregen door het indrukken van de ?- 
toets. 

5 print"[SHIFT-CLR]":poke53280,0:pok 

e53281,0:dimcm$(2600):poke650, 0 
10 rem 

15 11$="[CTRL-9][4xSPACE][CTRL-0][10x 

SHIFT-*] [SHIFT—h] [lOxSHIFT-*] [SHIF 
T +][lOxSHIFT-*][COM-W][COM-G]" 

20 12$="[4xCRSR-RIGHT][lOxSPACE]B[10x 

SPACE]B[10xSPACE]B[COM-G]" 

25 w$="[lOxSPACE][SHIFT—][llxCRSR-LE 

FT][CTRL-4]" 

30 x$="[CTRL-9][37xSPACE][CTRL-0][COM 

G]" 

35 y$="[39xSPACE]" 

40 z$="[CTRL-9]abcdefghijklmnopqrstuv 

wxyz[CTRL-0]" 

45 rl=l:kl=2:r2=l:cd=l 

50 print"[HOME][4xCRSR-DOWN][CTRL-6]" 

55 print"[CTRL-9][9xSPACE]"mid$(z$,kl 

,1)"[9xSPACE]"mid$(z$,kl+1,1); 

60 print"[llxSPACE]"mid$(z$,kl+2, 1)"[ 

SxSPACE][CTRL-0][COM-H]":printll$: 
d=r2 

65 fori=rltorl+7 

70 print"[CTRL-9][4xSPACE][4xCRSR-LEF 

T][CTRL-6]"i"[CTRL-0]":print"[CRSR 
-UP][4XCRSR-RIGHT]"w$;left$(cm$(d) 

, 10) "[CTRL-6]"; 

75 printtab(15)w$;left$(cm$(d+100) , 10 

)"[CTRL-6]"; 

80 printtab (26)w$;left$(cm$(d+200),10 

)"[CTRL-6]"tab(37)"[COM-H]" 

85 d=d+l:printll$:next 

90 print"[CTRL-9][6xSPACE](c)[SPACE]1 

9 8 7 [2 xSPACE]o.r.vos[SPACE]-[SPACE] 
software [3xSPACE] [CTRL-0][COM-G]" 

95 printtab(14)"[CTRL-9][CTRL-4][PIJL 

LINKS][SPACE]=[SPACE]escape[CTRL-6 
][CTRL-0][3xSPACE]?[SPACE]=[SPACE] 
help[HOME]" 

100 print"[HOME][CTRL-0][SPACE][CTRL-4 

]commando's[SPACE][CTRL-9][SPACE]n 
[SPACE]g[SPACE]h[SPACE]w[SPACE]f[S 
PACE]c[SPACE]s[SPACE]1[SPACE]z[SPA 
CE]m[SPACE][CTRL-6][CTRL-0][SPACE] 

"; y$ 

105 rem 

110 printy$"[CRSR-UP][CTRL-6][SPACE]co 

mmand:"; 

115 gosub480 

120 ifa$="n"then920 

125 ifa$="g"thent=l:fo=0:gotol95 

130 ifa$="h"then45 

135 ifa$="w"then510 

140 ifa$="f"then310 
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145 ifa$="c"then525 
150 i£a$="m"then520 

155 ifa$=”s"tnen665 
160 ifa$*“"l"then540 
165 ifa$="z"then970 

170 ifa$=" [CRSR-RIGHT] "andkl<;25thenkl= 
kl+1:r2=r2+100:goto50 
175 ifa$="[CRSR-LEFT]"andkl>2thenkl=kl 
-1:r2=r2-100:goto50 

180 ifa$="[CRSR-DOWN]"andrl<93thenrl=r 
1+1:r2=r2+l:goto50 

185 ifa$="[CRSR-UP]"andrl>lthenrl=rl-l 
:r2=r2-l:goto50 
190 gotoll5 

195 print"[HOME][2xCRSR-DOWN][CTRL-6]g 
oto[SPACE]cel:"; 

200 c=0:r=0:o=0:v$="" 

205 gosub480 
210 ifa$=chr$(13)then205 
215 c=asc(a$)-65:ifc=0then225 
220 r=100 

225 ifc<0orc>26then200 
230 ift=lthent=0 :goto240 
235 return 
240 printa$; 

245 gosub480 
250 ifa$=chr$(13)then275 
255 b=asc(a$):ifb<48orb>57then245 
260 v$=v$+a$:o=val(v$):ifo<0oro>100the 

nprint"[CTRL-0][3xCRSR-LEFT][3xSPA 
CE][3xCRSR-LEFT]:t=l:goto200 
265 printa$; 

270 goto245 

275 cel= (c*r)+o:ifcel>cdthencd=cel 
280 iffo=lthenreturn 

285 print"[HOME][2xCRSR-DOWN][CTRL-9]e 
nter[CTRL-0] [8xSPACE] [7 xCRSR-LEFT] 
:pokel9,1:inputcm$(cel):pokel9,0 
290 cm$(cel)=cm$(cel)+"[lOxSPACE]" 

295 goto50 

300 print"[HOME][CTRL-9][CTRL-2][2xSPA 
CE]laatst[SPACE]ingevoerde[SPACE]c 
el[SPACE]is[SPACE]leeg[6xSPACE][CT 
RL 0][CTRL-6]":gosub710:goto310 
305 print"[HOME][CTRL-9][CTRL-2][2xSPA 
CE]cel[SPACE]bevat[SPACE][CTRL-3]g 
een[CTRL-2][SPACE]rekenkundig[SPAC 
E]getal[3xSPACE][CTRL-0][CTRL-6]": 
gosub710 

310 print"[HOME][CTRL-9][CTRL-4]u[SPAC 
E]kunt[SPACE]alleen[3xSPACE]+[SPAC 
E]-[SPACE]*[SPACE]~[SPACE]/[3xSPAC 
E]gebruiken[CTRL-0][CTRL-6][15xSPA 
CE] " 

315 print"[HOME][2xCRSR-DOWN][CTRL-9]f 
ormule:[CTRL-0][lOxSPACE][lOxCRSR- 
LEFT]:q=0:uit=0:do=0:t=0 
320 gosub200:printa$ ; 

325 gosub480 

330 i£a$="+"thenprinta$;:goto380 
335 ifa$="-"thenprinta$;:goto380 
340 ifa$="*"thenprinta$;:goto380 
345 ifa$="/"thenprinta$;:goto380 
350 ifa$="~"thenprinta$;:goto380 
355 ifa$="="thenprinta$;:uit=l:goto380 
360 b=asc(a$):ifb<48orb>57then325 
365 v$=v$+a$:o=val(v$):i£o<0oro>100the 

nprint"[CTRL-0][3xCRSR-LEFT][3xSPA 


CE][3xCRSR-LEFT]";:fo=l:gosub200 
370 printa$; 

375 goto325 

380 i£do=lthend$=r$:r$=a$:goto390 
385 r$=a$ 

390 q=q+i 

395 cel=(o*r)+o 
400 ifcm$(cel)=""then300 
405 ifasc(cm$(cel))=<46orasc(cm$(cel)) 
=>58then305 

410 ifq=lthenf(1)=val(cm$(cel)): v$="": 
do=l:goto320 

415 ifq=2thenf(2)=val(cm$(cel));v$="" 
420 ifd$="+"thenuit$=str$(f(1)+f(2)) 

425 ifd$="-"thenuit$=str$(f(1)-f(2) ) 

430 ifd$="*"thenuit$=str$(f(1)*f(2) ) 

435 i£d$="/"thenuit$=str$(f(1)/f(2)) 

440 ifd$="[KWADRAATPIJL]"thenuit$=str$ 
(f (1) [KWADRAATPIJL]f(2)) 

445 f(l)=val(uit$):q=l 

450 ifuit=lthenuit=0:q=0:goto460 

455 goto320 

460 fo=l:t=l:gosub200:fo=0:t=0 
465 cm$(cel)=str$(f (1)) :f(1)=0 
470 ha=val(cm$(cel)) 

475 cm$(cel)=mid$(str$(int((ha+0.51*10 
[KWADRAATPIJL]-2)*10[KWADRAATPIJL]2 
)*10[KWADRAATPIJL]-2),2,9):goto50 
480 poke204,0:pokel98,0:waitl98,1:geta 
$ 

485 poke207,0:poke204,1 
490 ifa$=chr$(20)then480 
495 ifa$="?"then720 

500 ifa$="[PIJL LINKS]"then45 
505 return 

510 print"[HOME]"y$y$y$y$"[HOME][CTRL 
9][CTRL-4][SPACE]wissen[SPACE][CTR 
L 0] " 

515 print”welke[SPACE]cel:[CTRL-6]";:f 
o=l:t=l:gosub200:cm$(cel)="":fo=0: 
goto50 

520 print"[HOME]"y$y$y$y$"[HOME][CTRL 
9][CTRL-4][SPACE]verplaatsen[SPACE 
][CTRL-0]":v=l:goto530 
525 print"[HOME]"y$y$y$y$"[HOME][CTRL 
9][CTRL-4][SPACE]copy[SPACE][CTRL 
0]" 

530 prinf'welke[SPACE]cel:[CTRL-6]"; :f 
o=l:t=l:gosub200:c$=cm$(cel):ifv=l 
thencm$(cel)="":v=0 

535 print"[SPACE][CTRL-4]naar[SPACE]ce 
1:[CTRL-6]";:fo=l:t=l:gosub200:cm$ 
(cel)=c$:fo=0:t=0:goto50 
540 print"[SHIFT-CLR][CTRL-9][CTRL-4][ 
SPACE]scanning[SPACE][CTRL-0]" 

545 print"file's[SPACE]on[SPACE]disk[S 

PACE]:[CRSR-DOWN][7xCRSR-LEFT][CTR 
L 6]bloks[3xSPACE]prog.naam[CTRL-4 
]":d$="":a$="":b$="":c$="" 

550 openl,8,0,"$0":get#l,a$,b$ 

555 get#l,a$,b$ 

560 get#l,a$,b$ 

565 m=0 

570 ifa$<>""thenm=asc(a$) 

575 ifb$<>""thenm=m+asc(b$)*256 

580 d$=d$+"[CTRL-9][SPACE]"+mid$(str$( 

m),2)+"[SPACE][CTRL-0][SPACE]--[SP 
ACE] " 


40 
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o 


o 



o 

1 

1 

1 .. 

! 

1 

585 

get#l, b$ : ifstOOthenclosel:print" [ 
CRSR-DOWN]terug[SPACE]naar[SPACE]m 
enu[3xSPACE]j/n[SPACE]:gosub480: 
goto900 

o 

1 

1 

590 

i f b$ oehr$ (34) then5 8 5 

1 

i 

595 

get#l, b$ : ifb$Ochr$ (34) thend$=d$+b 
$:goto595 



1 

600 

get#l,b$:ifb$=chr$(32)then600 

o 

1 

605 

c$=" " 

1 

! 

610 

c$=c$+b$:get#l,b$:i£b$<>""then610 


j / 

1 

615 

ifrightS(d$,1)="[PIJL LINKS]"thenp 
rinttab(12)d$ 

o 

1 

620 

d$="":goto555 

I 

1 

1 

■ 

625 

print:print"[CTRL-9][SPACE]laden[S 
PACE] [CTRL-0] ":input"[CTRL-4]file- 
naam[SPACE]:[CTRL-6]";fl$ 



o 

1 

1 

630 

open2,8,2,"'0:"+£1$+"[SPACE][PIJL 
LINKS],s,r” 

1 

1 

635 

input#2,cd 


1 

640 

forcel=ltocd 


1 

645 

input#2,cm$(cel) 

o 

1 

1 

650 

ifcm$(cel)="."thencm$(cel)="" 

1 

655 

next 


1 

660 

close2:print"[SHIFT-CLR]":goto45 


1 

665 

print”[HOME]"y$y$y$y$"[HOME][CTRL 

o 

1 

1 

670 

9][CTRL-4][SPACE]saven[SPACE][CTRL 
0 ]" 

input"[CTRL-4]file-naam[SPACE]:[CT 
RL 6]";f1$ 

o 

1 

1 

1 

675 

open2,8,2,"'0:"+fl$+"[SPACE][PIJL 
LINKS],s,w" 


1 

680 

print#2,cd 


I 

685 

forcel=ltocd 

o 

I 

1 

690 

ifcm$(cel)=""thenprint#2, ".":goto7 
00 

1 

695 

print#2,cm$(cel) 


1 

700 

next 



705 

goto660 

o 

1 

710 

forw=0to3000:next:return 

1 

1 

715 

next 


1 

720 

print"[HOME][4xCRSR-D0WN]" 


1 

725 

print"[4xCRSR-RIGHT][32xSPACE]" 

o 

1 

1 

! 

! 

730 

print"[4xCRSR-RIGHT][SPACE]n-toets 
[SPACE]=[SPACE]wis[SPACE]gehele[SP 
ACE]sheet[5xSPACE]" 


o 

1 

1 

I 

j 

735 

print"[4xCRSR-RIGHT][SPACE]g-toets 
[SPACE]=[SPACE]ga[SPACE]naar[SPACE 
]cel[SPACE]x[8xSPACE]" 

ï' : 

■1 .. 

740 

print"[4xCRSR-RIGHT][SPACE]h-toets 
[SPACE]=[SPACE]terug[SPACE]naar[SP 
ACE]cel[SPACE]al[4xSPACE]" 


o 

■! , 

1 

1 

1 

745 

print"[4xCRSR-RIGHT][SPACE]w-toets 
[SPACE]=[SPACE]wis[SPACE]een[SPACE 
]cel[lOxSPACE]" 


o 

1 

1 

1 

750 

print"[4 xCRSR-RIGHT] [SPACE]m-toets 
[SPACE] = [SPACE]verplaat s[SPACE]1[S 

1 

1 

I: 

755 

PACE]cel[SPACE]naar[SPACE]" 
print"[4xCRSR-RIGHT][llxSPACE]een[ 
SPACE]andere[SPACE]cel[7xSPACE]" 



o 

1 . • 

1: 

760 

print"[4xCRSR-RIGHT][SPACE]c-toets 
[SPACE]=[SPACE]copieer[SPACE]1[SPA 

1 

1 . 

1 

765 

CE]cel[SPACE]naar[3xSPACE]" 
print"[4XCRSR-RIGHT][llxSPACE]een[ 
SPACE]andere[SPACE]cel[7xSPACE]" 



o 

1 

f 

1 

1 

770 

print"[4 xCRSR-RIGHT] [SPACE]s-toets 
[SPACE]=[SPACE]bewaar[SPACE]sheet[ 
9xSPACE]" 



) ■ 

1 

775 

print"[4xCRSR-RIGHT][SPACE]1-toets 


o 


[SPACE]=[SPACE]laad[SPACE]sheet[11 
xSPACE]" 

780 print"[4xCRSR-RIGHT][32xSPACE]" 

785 print"[4xCRSR-RIGHT][32xSPACE]" 

790 print"[4xCRSR-RIGHT][SPACE]cursor- 
toetsen[SPACE]=[SPACE]wandelen[SPA 
CE]door[SPACE]" 

795 print"[4xCRSR-RIGHT][18xSPACE]de[S 

PACE]sheet[6xSPACE]" 

800 print"[4xCRSR-RIGHT][2xSPACE][CTRL 
9][CTRL-4][SPACE]druk[3xSPACE]spa 
tie[2XSPACE][CTRL-0][CTRL-6][14xSP 
ACE] " 

805 print"[4xCRSR-RIGHT][32xSPACE][HOM 
E][2XCRSR-DOWN][8XCRSR-RIGHT] 

810 gosub480 

815 print"[HOME][4xCRSR-DOWN]" 

820 print"[4xCRSR-RIGHT][32xSPACE]" 

825 print"[4xCRSR-RIGHT][SPACE]z-toets 
[SPACE]=[SPACE]zoek[SPACE]een[SPAC 
E]gegeven[5xSPACE]" 

830 print"[4xCRSR-RIGHT][32xSPACE]" 

835 print"[4xCRSR-RIGHT][SPACE]f-toets 
[SPACE]=[SPACE]b.v.[SPACE]al*b4-c2 
+h6/d3=[SPACE]" 

840 print"[4xCRSR-RIGHT][llxSPACE]dus[ 
SPACE][CTRL”9][CTRL-2]eerst [CTRL-0 
][CTRL-6][SPACE]formuleren[SPACE]" 
845 print"[4xCRSR-RIGHT][llxSPACE]dan[ 

SPACE]aangeven[SPACE]in[SPACE]welke" 
850 print"[4xCRSR-RIGHT][llxSPACE]cel[ 

2xSPACE]de[SPACE]uitkomst[5xSPACE]" 
855 print"[4XCRSR-RIGHT][llxSPACE]komt 
[SPACE]te[SPACE]staan[8xSPACE]" 

860 print"[4xCRSR-RIGHT][32xSPACE]" 

865 print"[4xCRSR-RIGHT][SPACE][PIJL L 
INKS]-toets[SPACE]=[SPACE]escape[S 
PACE]op[SPACE]elk[SPACE]moment[SPA 
CE] " 

870 print"[4xCRSR-RIGHT][llxSPACE]beha 
lve[SPACE]by[SPACE]enter[SPACE]en[ 

2xSPACE]" 

875 print"[4xCRSR-RIGHT][llxSPACE]zoek 
en[15xSPACE]" 

880 print"[4xCRSR-RIGHT][32xSPACE]" 

885 print"[4xCRSR-RIGHT][32xSPACE]" 

890 print"[4xCRSR-RIGHT][32xSPACE][HOM 
E][2xCRSR-DOWN][8xCRSR-RIGHT] 

895 gosub480:goto45 
900 ifa$="n"then625 

905 ifa$="j"thenprint"[SHIFT-CLR]":got 
o45 

910 goto855 
915 return 

920 print"[HOME][llxCRSR-DOWN][12xCRSR 
-RIGHT][CTRL-9][15xSPACE] [CTRL-0]" 
925 print"[12xCRSR-RIGHT][CTRL-9][SPAC 
E]lege[2xSPACE]sheet[SPACE]![SPACE 
] [CTRL-0] " 

930 print"[12xCRSR-RIGHT][CTRL-9][15xS 
PACE][CTRL-0]" 

935 print"[12xCRSR-RIGHT][CTRL-9][SPAC 
E]zeker[SPACE]weten[SPACE]![SPACE] 
[CTRL-0] " 

940 print"[12xCRSR-RIGHT][CTRL-9][4xSP 
ACE](j/n)[6xSPACE] [CTRL-0]" 

945 print"[12xCRSR-RIGHT][CTRL-9][15xS 
PACE] [CTRL-0] " 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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■ 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


950 geta$:ifa$=""then950 
955 ifa$="n"then45 
960 ifa$="j"thenrun 
965 goto950 

970 print"[HOME][2xCRSR-DOWN]zoek[SPAC 
E]gegeven[SPACE]:[CTRL-4]: 

975 pokel9,1:inputzk$:pokel9, 0 
980 bl=len(zk$) 

985 £ori=ltocd:print"[HOME](3aCRSR-DOW 
N] " ; 

990 i£zk$=le£t$(cm$<i) ,bl)thenl005 
995 next 

1000 print"[CRSR-UP]komt[SPACE]niet[SPA 
CE]in[SPACE]het[SPACE]bestand[SPAC 
E]voor!":gosub710:goto50 
1005 ifi>100thenpc=int(i/100)+1:gotol015 
1010 pc—1 

1015 a=int(i-((pc-1)*100)) 

1020 print"[CRSR-UP]gegeven[SPACE]staat 
[SPACE]in[SPACE]cel[SPACE]"chr$(pc 
+64);a 

1025 gosub710:goto50 

EINDE LISTING spreadsheet 64 _ 


Checksum spreadsheet 64 


REGEL 

5 

36 

REGEL 

270 

36 

REGEL 

535 

246 

REGEL 

800 

174 

REGEL 

10 . 

0 

REGEL 

275 

150 

REGEL 

540 

4 

REGEL 

805 

169 

REGEL 

15 

201 

REGEL 

280 

56 

REGEL 

545 

234 

REGEL 

810 

.41 

REGEL 

20 

247 

REGEL 

285 

12 9 

REGEL 

550 

166 

REGEL 

815 

52 

REGEL 

25 

172 

REGEL 

290 

82 

REGEL 

555 

24 

REGEL 

820 

81 

REGEL 

30 

187 

REGEL 

295 

.238 

REGEL 

560 

2 4 

REGEL 

825 

182 

REGEL 

35 

115 

REGEL 

300 

171 

REGEL 

565 

47 

REGEL 

830 

81 

REGEL 

40 

247 

REGEL 

305 

64 

REGEL 

570 

186 

REGEL 

835 

196 

REGEL 

45 

96 

REGEL 

310 

68 

REGEL- 

575 

252 

REGEL 

840 

134 

REGEL 

50 

141 

REGEL 

315 

1 

REGEL 

' 580 

225 

REGEL 

845 

120 

REGEL 

55 

187 

REGEL 

320 

146 

REGEL 

585 

198 

REGEL 

850 

46 

REGEL 

60 

36 

• REGEL 

325 

41 

REGEL 

590 

29 

REGEL 

855 

156 

REGEL 

65 

7 

REGEL 

330 

79 

REGEL 

595 

52 

REGEL 

860 

81 

REGEL 

7 0 

254 

REGEL 

335. 

81 

REGEL 

600 

30 

REGEL 

865 

165 

REGEL 

75 

72 

REGEL 

340 

78 

REGEL 

605 

93 

REGEL 

870 

244 

REGEL 

80 

62 

REGEL 

345 

83 

REGEL 

610 

98 

REGEL 

875 

29 

REGEL 

85 

69 

REGEL 

350 

130 

REGEL 

615 

150 

REGEL 

880 

81 

REGEL 

90 

32 

REGEL 

355 

112 

REGEL 

620 

192 

REGEL 

885 

81 

REGEL 

95 

116 

REGEL 

360 

230 

REGEL 

625 

13 

REGEL 

890 

169 

REGEL 

100 

102 

REGEL 

365 

194 

REGEL 

630 

87 

REGEL 

895 

85 

REGEL 

105 

143 

REGEL 

370 

57 

REGEL 

635 

105 

REGEL 

900 

120 

REGEL 

110 

12 5 

REGEL 

375 

35 

REGEL 

640 

99 

REGEL 

905 

115 

REGEL 

115 

41 

REGEL 

380 

94 

REGEL 

645 

187 

REGEL 

910 

43 

REGEL 

120 

118 

REGEL 

385 

141 

REGEL 

650 

254 

REGEL 

915 

142 

REGEL 

125 

30 

.REGEL 

390 

4.7 

REGEL 

655 

130 

REGEL 

920 

171 

REGEL, 

130 

62 

REGEL 

395 

17 

REGEL 

660 

168 

REGEL 

925 

148 

regel' 

135 

122 

REGEL 

400 

148 

REGEL 

665 

25.1 

REGEL 

930 

221 

REGEL 

140 

103 

REGEL 

405 

249 

REGEL 

670 

27 

REGEL 

935 

2 

REGEL 

145 

108 

REGEL 

410 

129 

REGEL 

675 

92 

REGEL 

940 

245 

REGEL 

150 

113 

REGEL 

415 

123 

REGEL 

680 

125 

REGEL 

945 

221 

REGEL 

155 

129 

REGEL 

420 

211 

REGEL 

685 

99 

REGEL 

950 

107 

REGEL 

160 

114 

REGEL 

425 

214 

REGEL 

690 

195 

REGEL 

955 

68 

REGEL 

165 

135 

REGEL 

430 

212 

REGEL 

695 

2 07 

REGEL 

960 

97 

REGEL 

170 

28 

REGEL 

435 

218 

REGEL 

700 

130. 

REGEL 

965 

39 

REGEL 

175 

103 

REGEL 

440 

10 

REGEL 

705 

37 

REGEL 

970 

154 

REGEL 

180 

121 

REGEL' 

445 

20 

REGEL 

710 

165 

REGEL 

975 

125 

REGEL 

185 

190 

REGEL 

450 

165 

REGEL 

715 

130 

REGEL 

980 

29 

REGEL 

190 

32 

REGEL 

455 

30 

REGEL 

720 

52 

REGEL 

985 

112 

REGEL 

195 

17 8 

REGEL 

460 

99 

REGEL 

725 

81 

REGEL 

990 

148 

REGEL 

2 00 

168 

REGEL 

465 

76 

REGEL 

730 

174 

REGEL 

995 

130 

REGEL 

205 

41. • 

REGEL 

470 

42 

REGEL 

735 

103 

REGEL 

1000 

64 

REGEL 

210 

92 

REGEL 

475 

17 

REGEL 

740 

129 

REGEL 

'1005 

244 

REGEL 

215 

177 

REGEL 

480 

99 

REGEL 

745 

64 

REGEL 

1010 

118 

REGEL 

220 

149 

REGEL 

485 

80 

REGEL 

750 

112 

REGEL 

1015 

59 

REGEL 

225 

246 

REGEL 

490 

95 

REGEL 

755 

172 

REGEL 

1020 

146 

REGEL 

230 

248 

REGEL 

495 

101 

REGEL 

760 

187 

REGEL 

1025 

76 

REGEL 

235 

142 

REGEL 

500 

85 

REGEL 

765 

172 




REGEL 

240 

57 . 

REGEL 

505 

14 2 1 

REGEL 

770 

200 




REGEL 

245 

41 . 

REGEL 

'510 

87 

REGEL 

775 

33 




REGEL 

250 

99 

REGEL 

515 

26 

REGEL 

780 

81 




REGEL 

255 

231 

REGEL 

520 

145 

REGEL 

785 

81 




REGEL 

260 

125 

REGEL 

525 

185 

REGEL 

790 

61 




REGEL 

265 

57 

REGEL 

530 

74 

REGEL 

795 

83 
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o 

o 

o 

o 

o 
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o 
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PRINT OUT C-128 met o.a. Briefmaker 


Super Change 128 


Van de zelfde maker als het vorige programma, 
Christiaan Duijker, is Super Change 128. Na het 
runnen van dit programma is het op een eenvou¬ 
dige manier mogelijk verschillende toetsen een 
bepaalde funktie te geven. Dit kan zeker bij het 
schrijven van programmatuur veel tijd kunnen be¬ 
sparen. 


1 

2 

3 

4 

5 

6 
7 

10 

20 

30 

40 


50 


60 


70 


80 


90 

100 

110 

120 

130 


140 

150 


160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 


270 

280 


290 


rem 

rem *** powersoft ine 1989 *** 
rêm + ** *** 

rem *** Christiaan Duijker *** 
rem *** *** 

rem *** Zoetermeer *** 

rem 

gosub 530 

scnclr 

gosub500 

print:print"[SPACE][CTRL-9][SPACE] 
»[SPACE]1.[SPACE]verander[SPACE]h 
elp [SPACE] toets. [5xSPACE]«" 
print" [SPACE] [CTRL-9] [SPACE]» [SPA 
CE]2.[SPACE]verander[SPACE]shift[S 
PACE] run/stop [2xSPACE]«" 
print" [SPACE] [CTRL-9] [SPACE]» [SPA 
CE]3.[SPACE]verander[SPACE]functie 
[SPACE]toetsen[SPACE]«" 
print:print"[SPACE][CTRL-9][SPACE] 
»[SPACE]maak[SPACE]uw[SPACE]keuze 
[SPACE]<[SPACE]1-3[SPACE]>[7xSPACE 
]«[CTRL—0]" 

getkeykz$:k=val(kz$):ifk<lork>3the 
ngoto80 

on k gosub 110,240,370 

scnclr:goto30 

scnclr 

gosub500 

print:print"[SPACE][CTRL-9][SPACE] 
»[SPACE]geef[SPACE]nieuw[SPACE]he 
lp[SPACE]comm. [7 xSPACE]«[SPACE] [C 
TRL 0]" 
j=l:inputn$ 

print" [SPACE] [CTRL-9] [SPACE]» [SPA 
CE]met[SPACE]auto-return[SPACE](j/ 
n) [9xSPACE]« [SPACE] [CTRL-0] " 
getkeya$ 

ifa$="j"thenn$=n$+chr$ (13) 
poke 4105,len(n$) 

fori=4096to4104:a=a+peek(i):nexti 
fori=4106+a to 4106+a+len(n$):n=as 
c (mid$(n$,j,1)) 

if n=64thenpoke i,13:j=j+1:nexti 

poke i,n:j=j+1:nexti 

return 

scnclr 

gosub500 

print:print"[SPACE][CTRL-9][SPACE] 
»[SPACE]geef[SPACE]nieuw[SPACE]sh 
ift[SPACE]run/stop[SPACE]comm.«[S 
PACE] [CTRL-0] " 
j=l:inputn$ 

print" [SPACE] [CTRL-9] [SPACE]»[SPA 
CE]met[SPACE]auto-return[SPACE](j/ 
n) [10xSPACE]«[SPACE] [CTRL-0]" 
getkeya$ 


300 i£a$="j"thenn$=n?+chr?(13) 

310 poke 4104,len(n$) 

320 £ori=4096to4103:a=a+peek(i):nexti 

330 £ori=4106+a to 4106+a+len(n$):n=as 

e(mid$(n$, j, 1) ) 

340 if n=64thenpoke i,13:j=j+l:nexti 

350 poke i,n:j-j+1:nexti 

360 return 

370 scnclr 

380 gosub500 

390 print:print"[SPACE][CTRL-9][SPACE] 
»[SPACE]welke[SPACE]functie[SPACE 
] toets [SPACE] ? [llxSPACE]« [SPACE] [ 
CTRL-0] " 

400 getkeya$:a=val(a$):ifa<lora>8theng 
oto400 

410 print" [SPACE] [CTRL-9] [SPACE]» [SPA 
CE]geef[SPACE]nieuw[SPACE]comm.[SP 
ACE]voor[SPACE]f.key[5xSPACE]«[SP 
ACE] [CTRL-0] " 

420 input nf$ 

430 print" [SPACE] [CTRL-9] [SPACE]»[SPA 

CE]met[SPACE]auto-return[SPACE](j/ 
n) [llxSPACE]« [SPACE] [CTRL-0]" 

440 getkeyar$ 

450 ifar$="j"thennf$=nf$+chr$(13) :goto 
490 

460 print" [SPACE] [CTRL-9] [SPACE]» [SPA 
CE]met[SPACE]auto-aanhalingstekens 
[SPACE](j/n)[SPACE]«[2xSPACE]" 

470 getkeyar$ 

480 ifar$="y”thennf$=nf$+chr$(34) 

490 key a,nf$:return 

500 print"[CTRL-9]>»[2XSPACE]super[SP 
ACE]key[SPACE]changer[2xSPACE](c)[ 
SPACE] 1989 [5xSPACE]«< [CTRL-0] " 

510 return 

520 print"[4xSPACE]" 

530 scnclr 

540 fori=lto5:reada$ 

550 print:printtab(20-len(a$)/2) ; a$ 

560 nexti:sleep5:return 

570 data"powersoft[SPACE]presents:" 

580 data"super[SPACE]change[SPACE]12 8" 

590 data"(c)[SPACE]1989[SPACE]by[SPACE 
]c.duijker" 

600 data"voor[SPACE]commodore[SPACE]in 
f o" 

610 data"alle[SPACE]rechten[SPACE]voor 

behouden" 

EINDE LISTING super change 128 _ 
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Checksum superchange 128 


REGEL 

1 

143 

REGEL 

300 

14 7 

KEGEL 

2 

9 

REGEL 

310 

18 

REGEL 

3 

127 

REGEL 

320 

52 

REGEL 

4 

178 

REGEL 

330 

109 

REGEL 

5 

249 

REGEL 

340 

108 

REGEL 

6 

213 

'■ REGEL 

3 50 

18 6 

KEGEL 

.7 

143 

REGEL 

'360 

142 

REGEL 

10 . 

37 

REGEL 

370 

232 

REGEL 

20 

232 

REGEL 

380 

34 

REGEL 

30 

3.4 

REGEL 

390 

156 

REGEL 

40 

82 

REGEL 

400 

47 

REGEL 

50 

13.0 

REGEL 

410 

' 17 

REGEL 

-60 

203 

REGEL 

420 . 

61 

REGEL 

70 

157 

REGEL 

430 

185 

REGEL 

80 

228 

REGEL 

4 40 ' 

81 

REGEL 

90 

131 

REGEL 

450 

209 

REGEL 

100 

14 

REGEL 

460 

231 

REGEL 

110 

232 

REGEL 

470 

81 

REGEL 

120 

34 

REGEL 

480 

131 

REGEL 

130 

10 6 

REGEL 

4 $0 

230. 

REGEL 

140 

94 

REGEL 

500 

206 

REGEL 

150 

185 

REGEL 

510 

142 

REGEL 

160 

255 

REGEL 

520 

221 

REGEL 

170 

147 

REGEL 

530 

232 

REGEL 

180 

19 

REGEL 

540 

172 

REGEL 

190 

. 53 

REGEL 

5 50 

61 

REGEL 

200 

109 

REGEL 

560 

11 

REGEL 

210 

108 

REGEL 

570 

62 

REGEL 

220 

186 

REGEL 

580 

151 

REGEL 

230 

142 

REGEL 

590 

80 

REGEL 

240 

232 

REGEL 

600 

222 

REGEL 

250 

34 

REGEL 

610 

126 

REGEL 

2 60 

41 




REGEL 

270 

94 




REGEL 

280 

. 185 




REGEL 

2.90 

255 





Briefmaker 128 


Dit programma biedt U naast het menu gestuurd 
maken van een zakelijke brief, de mogelijkehid 
om komplete brieven op disk op te slaan. Stan¬ 
daard staan losse stukken tekst welke alle 
gekombineerd kunnen worden. Een verdere uitleg 
is eigenlijk niet mogelijk. U moet het zien en uit¬ 
proberen om er achter te komen wat de moge¬ 
lijkheden van dit programma zijn. Het werkt al¬ 
leen met een 80 koloms monitor. Het programma 
is gemaakt door H.J. v Eelen. 

1 rem *** briefmaker 128/80- h.j.c. 

van eeten *** 

2 : 

3 ifpeek(215)<>128thenprint"c-128/80 
[SPACE]kol.[SPACE]progamma":end 

4 fast:r$=chr$(13):e$=chr$(27)+"u":y 
$=chr$(133):z$=chr$(138):trap5:got 
o7 

5 trap5:gosub6:close4:printerr$(er)" 

[SPACE]druk[SPACE]een[SPACE]toets" 

;:getkeya$:gotol6 

6 printchr$(19)chr$(19):scnclr:retur 
n 

7 printchr$(142):color5,7:gosub6:cha 
rl,25,6,"maak[SPACE]uw[SPACE]zakel 
ij ke[SPACE]brieven[SPACE]met" 

8 charl,31,9,"[SPACE]briefmaker[SPAC 
E]128[SPACE]", 1:charl, 29,20, "door[ 
SPACE]h.j.c.[SPACE]van[SPACE]eeten 
":sleep4 

9 b=0:fork=5141to5394:reada:pokek, a: 
b=b+a:next 

10 ifb<>29126thenprintr$"fout[SPACE]i 
n[SPACE]dataregels":end 


11 dimtr$(25,25); ar=0 :pl=72:fork=lto2 
5:l$=l$+chr$(125):next 

12 fork=lto60;c$=c$+chr$(32);next:gos 
ub6:ifpeek(254)<>9thensys5347:poke 
254, 9 

13 keyl,y$:key2,chr$(137):key4,z$:key 
7,chr$(136) 

14 ; 

15 rem menu 

16 printchr$(142):color5,8:gosub6:cha 
rl,27,3,"[SPACE]briefmaker[SPACE]h 
oofdmenu[SPACE]",1 

17 window20,5,60,24:printr$"l.[SPACE] 
brieft SPACE]laden[SPACE]van[SPACE] 
disk" 

18 printr$"2.[SPACE]brief[SPACE]maken 
":ifpl<12thenpl=72 

19 printr$"3.[SPACE]brief[SPACE]wegsc 
hrijven[SPACE]naar[SPACE]disk" 

20 printr$"4,. [SPACE[pagina [SPACE] leng 

te[SPACE]instellen[SPACE]([SPACE]i 
s[SPACE]"pl")" 

21 printr$"5.[SPACE]print[SPACE]brief 
[SPACE]op[SPACE]beeldscherm[SPACE] 
of[SPACE]printer"e$r$ 

22 poke208,0:getkeya$:gosub6:onval(a$ 

)+lgotol6,25,43,26,129, 135 

23 : 

24 rem brief laden/we 

gschrijven 

25 c=l:b$="r”:colorS,11:charl,9,6,"[S 
PACE]brief[SPACE]laden[SPACE]",l:g 
oto27 

26 c=2 :b$="w"color5, 4 : charl, 9, 6, " [SP 

ACE]brief[SPACE]wegschrijven[SPACE 

]'M 

27 windowO,9,50,24,1:poke208,0:input" 
progammanaam[SPACE](d=dir,[SPACE]m 
=menu)";n$ 

28 n$=left$(n$,14):ifn$="d"thenwindow 
52,0,79,24,1:directory:goto27 

29 ifn$="m"thenl6 

30 printr$spc(33)"8"chr$(145):input"d 
evice[SPACE]nr.[SPACE](disk=8[SPAC 
E]datasette=l)";d 

31 printr$"disk[SPACE]of[SPACE]casset 
te[SPACE]in[SPACE]orde[SPACE](j/n) 

?":poke208,0:getkeya$:ifa$<>"j"the 
n31 

32 open4,(d),4,(n$)+",s,"+b$:oncgosub 
34,35:fork=0to24:forl=0to24:oncgos 
ub36,39 

33 nextl,k:close4:printr$r$ds$spc(3)" 
druk[SPACE]een[SPACE]toets":poke20 
8,0:getkeya$:gotol6 

34 input#4,h$:pl=val(h$):return 

35 h$=str$(pl):print#4,h$:return 

36 input#4,h$:a$="":a=len(h$)-1:ifa<l 
thentr$(k,1)="":return 

37 form=ltoa:g$=chr$(abs(asc(mid$(h$, 
m, 1))-255)) :a$=a$+g$:next 

38 tr$ (k,1)=a$:return 

39 h$=tr$(k,1)+b$:a=len(h$):a$="":for 
m=ltoa:g$=chr$(abs(asc(mid$(h$,m,1 
))-255)) 

40 a$=a$+g$:next:print#4,(a$):return 

41 : 

42 rem brief maken 


44 
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o 


o 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


o 

1 

I 

43 

color5,6:charl,31,6,"[SPACE]brief[ 

68 


1 


SPACE]maken[SPACE]",1;window2 8,9,7 

69 


! 


9, 24 

70 

o 

-4 . 

j 

1 ■ 

44 

printchr$(14)"1.[SPACE]VOLLEDIGE[S 
PACE]BRIEF"r$r$"2.[SPACE]INVOEREN[ 

71 

1 

1 

1 


SPACE]PER[SPACE]ALINEA"r$r$"3.[SPA 
CE]MENU" 

72 



1 

45 

poke208,0:getkeym$:ifm$="2"then71 


o 

1 

1 

46 

ifm$<>"1"thenlö 


1 

1 

I 

47 

gosub6:charl,34,0,"[SPACE]BRIEFHOO 

FD[SPACE]",1:windowl5, 3,79,24 

73 


o 

1 

48 

print"VOORBEELD[SPACE]AFZENDER:"r$ 
r$"B.F.[SPACE]De[SPACE]Vries"r$"Bo 


1 

1 

49 

slaan[SPACE]65" 

print"12 0 0 [SPACE]BA[2xSPACE]Bosdam 

74 



1 


"r$"telefoon[SPACE]017-737747"r$ 


o 

] 

1 

j 

50 

print"GEEF[SPACE]NU[SPACE]IN[SPACE 
]MAXIMAAL[SPACE]8[SPACE]REGELS[SPA 


1 

1 

I 

1 

51 

CE]UW[SPACE]AFZENDERGEGEVENS" 
print"(DRUK[SPACE]RETURN[SPACE]ALS 
[SPACE]U[SPACE]NIETS[SPACE]MEER[SP 
ACE]WILT[SPACE]INVULLEN)":poke208,0 

75 


o 

1 

! 

52 

fork=lto8:inputaf$(k):next:sleepl: 
printr$"DOE[SPACE]HETZELFDE[SPACE] 
MET[SPACE]DE[SPACE]ADRESSERING" 

76 


o 

1 

1 

I 

1 

53 

fork=lto8:poke208,0:inputad$(k):ne 
xt:sleepl:printr$"VOORBEELDEN[SPAC 

E]ONDERWERP:" 

77 



,( 

54 

print"aangifte[SPACE]schadegeval"r 


o 

vl ■■ 


$"sollicitatie[SPACE]vacature[SPAC 


§i 

1 

55 

E]agrarisch[SPACE]medewerker" 
print"uw[SPACE]brief[SPACE]BVD/007 

78 



1 

1 


[SPACE]7[SPACE]van[SPACE]8-8-1988" 
r$:poke208,0:input"betreft";bt$ 


o 

1 

I 

1 

1 

56 

print;poke208,0:input"de[SPACE]pla 
ats[SPACE]van[SPACE]waaruit[SPACE] 
u[SPACE]schrijft" ; pl$ 

79 



1 

57 

print:poke2 0 8,0:input"datum[SPACE] 


o 

1 

1 

1 


(b.v.:[SPACE]31[SPACE]september[SP 
ACE]1988)";da$ 

80 

o 

1 

1 

1 

58 

printr$"KIES[SPACE]EEN[SPACE]AANHE 

F":a$(1)="Mevrouw,[SPACE]meneer, 
a$(2)="Mijne[SPACE]heren, " 


1 

1 

1 

59 

a$(3)="Geachte[SPACE]heer,":a$(4)= 

"Zeer[SPACE]geachte[SPACE]heer,":p 
oke208,0 

81 


o 

1 

1 

t 

60 

print"1.[SPACE]"a$(1)r$"2.[SPACE]" 
a$(2)r$"3.[SPACE]"a$(3)r$"4.[SPACE 
]"a$ (4)r$"5. [SPACE]Geacht[SPACE] . . 

82 


1 


II 
• r 

83 

o 

1 

1 

1 

61 

print"6.[SPACE]Geachte[SPACE]...," 
r$"7.[SPACE]Beste[SPACE]...,"r$"8. 


1 

j 

! 

I 

1 

62 

[SPACE]...,"r$:getkeya$:a=val(a$) 
a$ (5)="Geacht[SPACE]":a$(6)="Geach 
te[SPACE]":a$(7)="Beste[SPACE]":if 
a>0anda<5thenah$=a$(a) 

84 


o 

1 

1 

63 

r=0:ifa>4anda<9thenpoke208,0:input 

85 


1 


a$:ah$=a$(a)+a$+"," 

86 


1 

1 

1 

64 

fork=0to25:tr$(0,k)="":next : fork=l 
to8 : ifaf $ (k) O" "thentr$ (0, r) =af $ (k 

87 

o 

1 

! 

1 

1 

65 

) : r=rtl 

next : r=rt2 : fork=lto8 : ifad$(k) O" "t 
hentr$(0,r)=ad$(k) : r=r+l 

88 

o 

I 

1 

i 

66 

next:r=r+l : tr$(0,r)="betreft : [SPAC 

E]"tbt$:r=rt3:h$=pl$t",[SPACE]"tda 

89 

1 

i 

67 

$ : h=60-len(h$) 

tr$(0,r)=left$(c$,h)th$ : r=rt2 : fork 

90 



J 

1 


=0tor : iftr$(0,k) =" "thentr$(0,k)=c$ 

91 

o 

1 

! 





next:tr$(0,r)-ah$:tr$(0, r+1)-c$ 

rem invoeren tekst per alinea 
gosube : Cïiarl, 26,0, " [SPACE] INVOEREN 
[SPACE]TEKST[SPACE]PER[SPACE]ALINE 
A[SPACE]", 1:al=l:windowS,4, 79,24 
print"Denk[SPACE]bij[SPACE]het[SPA 
CE]invoeren[SPACE]van[SPACE]tekst[ 
SPACE]aan[SPACE]de[SPACE]OPBOUW[SP 
ACE]van[SPACE]uw[SPACE]brief:" 
printr$"Alinea[SPACE]0[SPACE]is[SP 
ACE]gereserveerd[SPACE]voor[SPACE] 
het[SPACE]hoofd[SPACE]van[SPACE]de 
[SPACE]brief." 

printr$"Vanaf[SPACE]alinea[SPACE]1 
[SPACE]kunt[SPACE]u[SPACE]uw[SPACE 
]eigen[SPACE]alinea's[SPACE]invoer 
en. " 

printr$"ALINEA[SPACE]1[SPACE]moet[ 
SPACE]KORT[SPACE]duidelij k[SPACE]m 
aken[SPACE]waar[SPACE]de[SPACE]bri 
ef[SPACE]over[SPACE]gaat." 
print"B.v.:[SPACE]'Omdat[SPACE]ik[ 
SPACE]mij n[SPACE]schade-aangiftefo 
rmulier[SPACE]kwijt[SPACE]ben,[SPA 
CE]meld[SPACE]ik[SPACE]u" 
print"met[SPACE]deze[SPACE]brief,[ 
SPACE]dat[SPACE]ik[SPACE]gisteren, 
[SPACE]dinsdag[SPACE]12[SPACE]juli 
[SPACE]1988,[SPACE]betrokken" 
print"ben[SPACE]geweest[SPACE]bij[ 
SPACE]een[SPACE]ongeval[SPACE]op[S 
PACE]de[SPACE]Velperweg[SPACE]in[S 
PACE]de[SPACE]gemeente[SPACE]Arnhe 
m. ' " 

printr$"In[SPACE]de[SPACE]MIDDELST 
E[SPACE]ALINEA'S[SPACE]geeft[SPACE 
]u[SPACE]de[SPACE]DETAILS." 
printr$"De[SPACE]LAATSTE[SPACE]ALI 
NEA[SPACE]moet[SPACE]KORT[SPACE]zi 
jn:[SPACE]b.v.:[SPACE]'[SPACE]Omda 
t[SPACE]ik[SPACE]mijn[SPACE]auto[S 
PACE]voor" 

print"mijn[SPACE]beroep[SPACE]nauw 
elijks[SPACE]kan[SPACE]missen, [SPA 
CE]verzoek[SPACE]ik[SPACE]u[SPACE] 
de[SPACE]s chade[SPACE]zo[SPACE]snel" 
prinfmogelijk [SPACE] te [SPACE] taxe 
ren.'" 

printr$"Zie[SPACE] M. F . [SPACE]Steeh 
ouder[SPACE]e.a.,[SPACE]Leren[SPAC 
E]communiceren,[SPACE]ISBN[SPACE]9 
0[SPACE]01[SPACE]80816[SPACE]6.” 
printchr$(19)chr$(19):charl,31,24, 

"[SPACE]DRUK[SPACE]EEN[SPACE]TOETS 
[SPACE]",1:poke208,0:getkeya$ 

gosub6:window20,8,79,24:printr$spc 
(31);al;chr$(145) 

poke208, 0:input"ALINEA[SPACE] (0-24 
[SPACE]OF[SPACE]EINDIG[SPACE]MET[S 
PACE]-1)";al 

a$="ALINEA[SPACE]ERVOOR[SPACE]IS[S 
PACE ] NOG [ SPACE ] LEEG " : i f aKOthenl 15 
ifal>ltheniftr$(al-1,0)=""thenal=a 
1-1:printa$:sleep4:goto86 
gosub93:al=altl:goto86 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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O 




- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


92 rem invoeren gegevens 

93 gosubö:color5,3:window73,10,79,24 

94 print" £2=[SPAOE]verwiji©r n r$"aline 
a"r$r$"f4="r$"voeg"r$"alinea"r$"tu 
saen" 

95 windowO,0,6,9:print"eindig"r$"met[ 
SPACE]fl"r$r$"of"r$"zonder"r$"opsl 
ag"r$"met[SPACE]£7" 

9 6 window7 3,0,79,3:print"alinea"al:po 

ke248,128:window9,0,9,24:printl$; 

97 window70,0,70,24:printl$r$chr$(11) 
:windowl0,0,69,24:color5,6 

98 fork=0to24;printtr$(al,k):next:pri 
ntchr$(19); 

99 printe$;:getkeya$:ifa$<y$ora$>z$th 
enprinta$;:goto99 

100 : 

101 rem funktietoetsbewerkingen 

102 a=asc(a$)-135:ifa>0thenonagotol08, 
109,111 

103 h$=c$:bankl:pl=peek(pointer(h$)+1) 
:p2=peek(pointer(h$)+2):bankl5 

104 poke250,pl:poke251,p2:poke252,10:p 
oke253,0 

105 fork=0to24:sys5141:tr$(al,k)=h$:next 

106 c=0:fork=24to0step-l:iftr$(al,k)=c 
$andc=0thentr$(al,k)="":elsec=l 

107 next 

108 poke248,0:printohr$(12):gosub6:ret 
urn 

109 fork=alto24:forl=0to25:tr$(k,1)=tr 
$(k+1,1):nextl,k 

110 fork=0to25:tr$(25,k)="":next:poke2 
08,0:goto93 

111 fork=24toalstep-l:forl=0to25:tr$(k 
+1,1)=tr$(k,1):nextl,k 

112 fork=0to25:tr$(al,k)="":next:poke2 
08,0:goto93 

113 : 

114 rem ondertekening 

115 ifm$="2"thenl6 

116 gosub6:char1,33,0,"[SPACE]ONDERTEK 
ENING[SPACE]", 1:window9,3,79,24:a$ 
(1)="Hoogachtend," 

117 a$(2)="Met[SPACE]de[SPACE]meeste[S 
PACE]hoogachting,":a$(3)="Met[SPAC 
E]vriendelijke[SPACE]groet," 

118 print"KIES[SPACE]UIT:”r$"l.[SPACE] 
"a$(1)r$"2,[SPACE]"a$(2)r$"3.[SPAC 
E]"a$(3) :poke2 0 8,0:getkeya$ 

119 a=val(a$):print:input"Uw[SPACE]naa 
m";nm$:input"evt.[SPACE]funktie[SP 
ACE](of[SPACE]druk[SPACE]RETURN)";f$ 

120 al=25:dowhiletr$(al-1,0)="":al=al- 
1:loop:iff$<>""thennm$=nm$+",[SPAC 
E]"+f$ 

121 tr$(al,0)=a$(a):fork=lto3:tr$(al,k 
)=c$:next:tr$(al,4)=nm$:a$="" 

122 inpufaantal [SPACE] bijlagen" ; a$ : a= 
val(a$):ifa>0thenbegin:fork=5to7:t 
r$(al,k)=c$ 

123 next:tr$(al,8)="bijlagen:[SPACE]": 
ifa=lthentr$(al,8)="bijlage:[2xSPA 
CE] " 

124 fork=8toa+7:inpuf'bijlagenaam";b$: 
tr$ (al, k) =tr$ (al, k) +b$ 

125 tr$ (al,k+1)=left$(c$,10):next:bend 

126 gotolö 


127 : 

128 rem pagina lengte 

instellen 

129 color 5,5:charl,23,7,"[SPACE]pagin 
a[SPACE]lengte[SPACE]instellen[SPA 
CE]”, 1:window20,9,69,24 

130 printr$"12[SPACE]inch[SPACE]papier 
[SPACE]telt[SPACE]meestal[SPACE]72 
[SPACE]regels" 

131 printr§"11[SPACE]inch[SPACE]papier 
[SPACE]meestal[SPACE]66"r$r$"a4[SP 
ACE]telt[SPACE]70[SPACE]regels" 

132 printr$spc(14);pl;chr$(145);input" 
pagina[SPACE]lengte";pl:gotol6 

133 : 

134 rem print brief 

135 printchr$(14):color5,15:charl,33,9 
,"[SPACE]PRINT[SPACE]BRIEF[SPACE]" 

,1:window9,12,79,24 

136 print"PRINT[SPACE]OP[SPACE]SCHERM [ 
SPACE]OF[SPACE]PRINTER[SPACE]OF[SP 
ACE]GA[SPACE]TERUG[SPACE]NAAR[SPAC 
E]MENU[SPACE](S/P/M)"; 

137 d=3:poke208,0:getkeys$:ifs$<>"s"an 
ds$<>"p"thenl6 

138 ifs$="p"thend=4:printr$"PRINTER[SP 

ACE]OKE ?[SPACE]DRUK[SPACE]EEN[SPAC 
E]TOETS"; :getkeya$ 

139 gosub6:open4,d,7:al=0:r=l:dowhile( 
tr$(al,0)O"”andal<25)oral=0:ar=0: 
c=0 

140 dowhiletr$(al,ar)O""andar<25andtr 
$ (al, ar) O" " :h$=tr$ (al, ar) : gosubl4 
3 : c=l 

141 r=r+l:ar=ar+l:loop:ifc=lthenh$="": 
gosubl43:r=r+l 

142 al=al+l:loop:close4:print"DRUK[SPA 
CE]EEN[SPACE]TOETS";:getkeya$:gosu 
b6:gotol35 

143 a=r/(pl-9):ifa=int(a)thenfork=ltol 
0 :print#4:next 

144 ifd=3thenprintusing"####";r;:print 
spc(6);h$:return 

145 print#4,spc(10);h$:return 

146 : 

147 rem dataregels mac hinetaalroutines 

148 datal60,0,162,18,165,253,32,137,20 
,232,165,252,32,137,20,162,31,32 

149 datal4 9,20,133, 78,56, 165, 78,233,12 

8.48.2.133.78.56.165.78.133.79.233 
,32 

150 data48,7,56,165,78,233,96, 48,7,24, 

165.78.105.64.133.78.56.165.79.233 
, 64 

151 data48,14,56,165,79,233, 95, 16, 7,24 
,165,78,105,32,133,78,162,1,32,124 
,20 

152 datal69,250,141,185,2,165,78,120,3 
2,119,255,88,200,192,60,208,161,16\2 

153 data20,32,124,20,96,24,138, 101,252 
,133,252,165,253,105,0,133,253,96, 
142 

154 dataO,214,44,0,214,16,251,141,1,21 
4,96,142,0,214,44,0,214,16,251,173 
,1 

155 data214,96,162,16,134,252,162,18,3 
2,149,20,133,250,232,32,149,20,133 
,251 
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156 datal62,31,32,14 9,20,166,252,224,1 
4,48,2,24,74,224,11,16,2,24,10,133 
,253 

157 datal34,252,165,250,162,18,32,137, 
20,165,251,232,32,137,20,162,31,16 
5, 253 

158 data32,137,20,166,252,202,208,193, 
96,120,162,18,169,32,32,137,20,232 
, 169 

159 dataO,32,137,20,160,255,192,81,240 
,11,32,161,20,32,161,20,136,208,24 
3,88 

160 data96,162,15,134,252,162,31,32,14 
9,20,166,252,202,208,244,240,235,4 
8 

EINDE LISTING briefmaker 128 


Checksum briefmaker 128 


REGEL 

1 

119 

REGEL 

63 

2! 

REGEL 

125 

198 

REGEL 

2 

58 ~ 

REGEL 

64 

180 

REGEL 

126 

240 

REGEL. 

3 

125 

REGEL 

65 

55 

REGEL 

127 

58 

REGEL 

4 

144 

REGEL 

66 

71 

REGEL 

128 

172 

REGEL 

5 

36 

REGEL 

67 

206 

REGEL 

129 

236 

REGEL 

6 

135 

REGEL 

68 

219 

REGEL 

130 

8 • 

REGEL 

7 

255 

REGEL 

69 

58 

REGEL 

131 

.22 

REGEL 

8 

134 

REGEL 

70 

17 

REGEL 

132 

122 

REGEL 

9 

194 

REGEL 

71 

13 ' 

REGEL 

133 

58 

REGEL 

10 

154 

REGEL 

72 

• 115 

REGEL 

134 

132 

REGEL 

11 

17 

REGEL 

73 

103 

REGEL 

135 

74 

REGEL 

12 

76 

REGEL 

74 

. 125 

REGEL 

136 

89 

REGEL 

13 

112 

REGEL 

75 

71 

REGEL 

137 , 

158 

REGEL 

14 

58 

REGEL 

76 

199 

REGEL 

138 

24 9 

REGEL 

15 

196 

REGEL 

77 

181 

REGEL 

139 

93 

REGEL 

16 

136 

REGEL 

78 

210 

REGEL 

140 

14 3 

REGEL 

17 

199 

REGEL. 

7 9 

175 

REGEL 

141 

2 

REGEL 

18 

92 

REGEL 

80 

9 

REGEL 

142 

92 

REGEL 

.19 

248 

REGEL 

81 

181 

REGEL 

143 

,223 

REGEL 

20 

159 

REGEL 

82 

52 

REGEL 

144 

206 

REGEL 

21 

0 

REGEL 

8,3 

56 

REGEL 

145 

151 

REGEL 

22 

27 

REGEL 

84 

116 

REGEL 

146 

58 

REGEL 

23 

58 

REGEL 

85 

58 

REGEL 

14 7 

251 

REGEL 

24 

25 

REGEL 

86 

58 

REGEL 

148 

96 

REGEL 

2 5. 

• 201 

REGEL 

87 

31 

REGEL 

149 

148 

REGEL 

26 

160 

REGEL 

88 

114 

REGEL 

150 

166 

REGEL 

27 

177 

REGEL 

89 

49 

REGEL 

151 

121 

REGEL 

28 

18 

REGEL 

90 

11 

REGEL 

152 

. 21 

REGEL 

29 

78 

REGEL 

91 

58 

REGEL 

153 

90 

REGEL 

30 

112 

REGEL 

92 

73 

REGEL 

154 

13 

REGEL 

31 

174 

REGEL 

93 

239 

REGEL 

155 

146 

REGEL 

32 

163 

REGEL 

94 

122 

REGEL 

156 ' 

130 

REGEL 

33 

218 

REGEL 

95 

55 

REGEL 

157 

195 

REGEL 

34 

34 

REGEL 

96 

185 

REGEL 

158 ' 

160 

REGEL 

35 

53 

REGEL 

97 v 

. 39 

REGEL 

159 

132 

REGEL 

36 

155 

REGEL 

98 

246 

REGEL 

160 

10 

REGEL 

37 ; 

78 

REGEL 

99 

41 




REGEL 

38 

189 

REGEL 

100 

58 




REGEL 

3 9 

79 

REGEL 

101. 

1Ö1 




REGEL 

40 

253 

REGEL 

102 

186 




REGEL 

41 

58 

REGEL 

103 

114 




REGEL 

' 42 

99 

REGEL 

104 

176 




REGEL 

43 

171 

REGEL. 

105 

142 




REGEL 

44 

137 

REGEL 

106 

94 




REGEL 

45 

63 

REGEL 

107 

130 




REGEL 

46 

227 ' 

REGEL 

108 

164 




REGEL 

47 

231 

REGEL 

109 

11 




REGEL 

48 

8 3 

REGEL 

110 

148 




.REGEL 

4 9 

237 

REGEL. 

111 

14 4 




REGEL 

50 

193 

REGEL 

112 

186 




REGEL 

51 

25 

REGEL 

113 

58 




REGEL 

-52 

103 

REGEL 

114 

92 




REGEL 

53 

56 

REGEL 

115 

50 




REGEL 

54 

77 

REGEL 

116 

21 




REGEL 

55 

20 

REGEL 

117 

143 




REGEL 

56 

96 

REGEL 

118 

187 




REGEL 

57 

38 

REGEL 

119 

94 




REGEL 

58 

3 

REGEL 

120 

130 




REGEL 

59 

■ 120 ’ 

REGEL 

121 

. 227 




rege'l 

6Ó 

46 

REGEL 

122 

220' • 




REGEL 

61 

93 

REGEL 

123 

238 




REGEL 

62 

102 

REGEL 

1 24 

101 





Checksum cl 6 


10 

rem 

****************************** 

20 

rem 

syntax.checksum 

30 

rem 

voor c-16 £ plus/4 

40 

rem 


50 

rem 

syntax testen met 'sys 1536' 

60 

rem 


70 

rem 

v. 851128.16 jan bodzinga 

80 

rem 

******************************* 

90 

i=1536 :rem beginadres 

100 

reada: ifa>=0then pokei,a:i=i+l:got 


olOO 


110 

print"data[SPACE]is[SPACE]weggezet" 

120 

print"cheksum[SPACE]printen[SPACE] 


met[SPACE]'sys[SPACE]1536' 

130 

end 


200 

data 

165, 43,166, 44,133 

210 

data 

31,134, 32,169,147 

220 

data 

32,210,255,160, 0 

230 

data 

240, 3, 32, 73, 6 

240 

data 

32, 73, 6,208, 1 

250 

data 

96, 72,152, 32,131 

260 

data 

6,168,104,234, 32 

270 

data 

81, 6, 32, 73, 6 

280 

data 

240, 12,201, 32,240 

290 

data 

247, 24,101,252,133 

300 

data 

252, 76, 37, 6,166 

310 

data 

252,169, 0,132,253 

320 

data 

32, 95,164,169, 13 

330 

data 

32,210,255,164,253 

340 

data 

76, 17, 6,200,208 

350 

data 

2,230, 32,177, 31 

360 

data 

96,162, 0,189,123 

370 

data 

6,240, 6, 32,210 

380 

data 

255,232,208,245, 32 

390 

data 

73, 6,170, 32, 73 

400 

data 

6,132,253, 32, 95 

410 

data 

164,162, 3,169, 32 

420 

data 

32,210,255,202,208 

430 

data 

250,169, 0,133,252 

440 

data 

164,253, 96, 82, 69 

450 

data 

71, 69, 76, 32, 0 

460 

data 

0, 72,138, 72, 32 

470 

data 

225,255,240,251,104 

480 

data 

170,104, 96, -1 

** EINDE LISTING checks16 


Checksum Checksum C-16 


REGEL 

10 

249 

REGEL 

300 

118 

REGEL 

20 

' 247 

REGEL 

310 

204 

REGEL 

30 

121 

REGEL 

320 

165 

REGEL 

40 . 

143. 

REGEL 

330 

252 

REGEL 

50 

75 

REGEL 

340 

106 

REGEL 

60 

143 

REGEL 

350 

98 

REGEL 

70 

8 

REGEL 

360 

163 

REGEL 

80 

24 9 

REGEL 

370 

45 

REGEL 

90 

103 

REGEL 

380 

0 

REGEL 

100 

2 

REGEL 

390 

58 

REGEL 

110 

245 

REGEL 

4 00 

108 

REGEL 

120 

237 

REGEL 

410 

15 9 

REGEL 

130 

128 

REGEL 

420 

24 5 

REGEL 

200 

210 

REGEL 

430 

202 

REGEL 

210 

208 

REGEL 

440 

176 

REGEL 

220 

1-4 2 

REGEL 

450 

12 

REGEL 

2 30 

1 

REGEL 

460 

54 

REGEL 

240 

3 

REGEL 

470 

43 

REGEL 

250 

157 

REGEL 

480 

1 

REGEL 

2 60 

155 




RE GEL 

270 

215 




REGEL 

280 

18 6 




REGEL 

290 

248 
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PRINT OUT C-16 met Collis 


Collis 16 


Collis is weer een ouderwets aktiespel. Het is 
gemmakt door Peter Boersma uit Stadskanaal. 
De bedoeling van dit spel is om je tegenstander 
door middel van muren in te sluiten. Door het 
programma wordt ook de stand van zaken aan¬ 
gegeven. Door middel van het keuzemenu is het 
geheel nog wat moeilijker te maken. 


1 rem- 

2 rem - collision (ss 

s) - 

3 rem -c-16- 

4 rem - voor : commodore info 

5 rem - door : peter boersma (mrt'8 
8)- 

6 rem - lg- 

7 rem - enschede 

8 rem - (c) social software services 

9 rem- 

10 scnclr:vol8:gosub 1240:gosub 690 

20 vol8:color 0,1:colorl,2:color4,3,3 

30 prinfpb [SPACE] sss [SPACE] '88":scnc 

lr 

40 if q=l then goto 120 

50 rem-border- 

60 b=3112 : e=3151: s=l: gosub 110 

70 b=3151:e=4071:s=40:gosub 110 

80 b=4071:e=4032:s=-l:gosub 110 

90 b=4032:e=3112:s=-40:gosub 110 

100 goto 120 

110 fora=b to e step s:poke a,160:poke 
a-1024,87:next a:return 
120 if u=l then goto 180 

130 rem-obstakels - 

140 poke 3276,085:poke3277,073:poke331 

6,074:poke3317,075 

150 poke 3824,085:poke3825,073:poke386 
4,074:poke3865,075 

160 poke 3571,085:poke 3572,073:poke 3 

611,074 rpoke 3612,075 

170 rem - initialisatie + score -- 

180 pl=3193:p2=3990:dl=l:d2=-l 

190 print"[HOME][CTRL-3][5xSPACE][CTRL 

9][SPACE]speler[SPACE]1[SPACE] 
sl;tab(22)"[CTRL-6][SPACE]speler[S 
PACE]2[SPACE]:";s2;"[CTRL-2]" 

200 rem-hoofdlus - 

210 get a$ 

220 sound 3,1000,1 

230 poke pl-1024,66:poke p2-1024,53 

240 if a$="d" and dlol then dl=-l 

250 if a$="[CRSR-LEFT]" and d2<>l then 

d2=-l 

260 if a$="[CRSR-RIGHT]" and d2<>-l th 

en d2=l 

270 if a$="6" and dlo-l then dl=l 

280 if a$="5" and dl<>40then dl=-40 

290 if a$=" [CRSR-UP] " and d2O40then 

d2=-40 

300 if a$=" [CRSR-DOWN] " and d2O-40th 

en d2=40 

310 if a$="r" and dl<>-40then dl=40 

320 pl=pl+dl:p2=p2+d2 

330 if pl<3112 then pl=pl+960 


340 if p2<3112 then p2=p2+960 

350 if pl>4071 then pl=pl-960 

360 if p2>4071 then p2=p2-960 

370 if pl=p2 then w=0:goto 440 

380 if peek(pl)<>32 then w=2:goto 440 

390 i£ peek (p2) <ii.32 then w=l:goto 440 

400 poke pl,081:poke p2,081 

410 sound2,200,3;sound 1,700,1 

420 for b=l to 100-10*m:next b:goto 210 

430 rem-uitslag op scherm- 

440 gosub 1260 

450 on w+1 goto 460,540,610 

460 scnclr 

470 print"[4xCRSR-DOWN]" 

480 colorl,6,3:printtab(2)"UCIUCIUCIUC 
I[SPACE][COM-R][SPACE][COM-R].UCIU 
CIUCIUCI[COM-A]Cl" 

490 colorl,8,5 rprinttab(2)"[SHIFT--] [S 
PACE][COM-S][COM-Q]C[SPACE][COM-Q] 

C [SPACE] [SHIFT—] [SPACE] [SHIFT—] [ 
SPACE][5xSHIFT—][SPACE][2xSHIFT— 

][SPACE][SHIFT—][COM-Q]C[COM-W][C 
OM Q]C[COM-W][COM-Q][COM-R]K" 

500 colorl,3,4:printtab(2)"JCKJCKJCK[C 
OM E][SPACE][COM-E][SPACE]J[COM-E] 

K[2xCOM~E][SPACE][2xCOM-E][SPACE][ 
2xCOM-E][SPACE][2xCOM-E][SPACE][2x 
COM-E] JC" 

510 colorl,8,5:print"[3xCRSR-DOWN][3xS 
PACE]druk[SPACE]op[SPACE]'return'[ 
SPACE]om[SPACE]te[SPACE]starten":g 
osub 1500 

520 geta$ : if a$Ochr$ (13) then 520 
530 gosub 880:goto 20 

540 sl=sl+l:scnclr:print"[4xCRSR-DOWN]" 

550 colorl,3,4:printtab(3)"[3xSHIFT--] 

.UCIUCIUCIUCI[COM-A]Cl.[COM-A]CIUC 
IUCI[COM-A]Cl" 

560 printtab(3)"[5xSHIFT--][SPACE][2xS 
HIFT -][SPACE][SHIFT--][COM-Q]C[CO 
M W] [COM-Q] C [COM-W] [COM-Q] [COM-R] K 
.[COM-Q][COM-R]K[SHIFT—][SPACE][2 
xSHIFT--][SPACE][2xSHIFT--][SPACE] 
[SHIFT--]" 

570 printtab(3)"J[COM-E]K[2xCOM-E][SPA 
CE][2xCOM-E][SPACE][2xCOM-E][SPACE 
][2xCOM-E][SPACE][2xCOM-E]JC[SPACE 
][COM-E]JCJCKJCK[COM-Z]CK" 

580 colorl,8,5:print"[3xCRSR-DOWN][4xS 
PACE]druk[SPACE]op[SPACE]'return' [ 
SPACE]om[SPACE]te[SPACE]starten":g 
osub 1500 

590 geta$:if a$Ochr$ (13) then 590 

600 gosub 880:goto 20 

610 s2=s2+l:scnclr:print"[4xCRSR-DOWN]" 

620 colorl,6,3:printtab(2)"[3xSHIFT--] 
.UCIUCIUCIUCI[COM-A]Cl.UCI[COM-A]C 
IUCIUCIUCI" 

630 printtab(2)"[5xSHIFT--][SPACE][2xS 
HIFT -][SPACE][SHIFT--][COM-Q]C[CO 
M W] [COM-Q]C[COM-W] [COM-Q] [COM-R]K 
. [SHIFT—] [SPACE] [COM-S] [COM-Q] [CO 
M R]K[SHIFT—][SPACE][SHIFT--][COM 
Q]C[SPACE][SHIFT—][SPACE][SHIFT- 

640 printtab(2)"J[COM-E]K[2xCOM-E][SPA 

CE][2xCOM-E][SPACE][2xCOM-E][SPACE 
][2xCOM-E][SPACE][2xCOM-E]JC[SPACE 


48 


Commodore Info 7/89 

















- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


]JCK[COM-E]JCJCKJCK[COM-E][SPACE][ 
COM-E]" 

650 colorl,8,5:print"[3xCRSR-DOWN][3xS 
PACE]druk[SPACE]op[SPACE] ' return' [ 
SPACE]om[SPACE]verder[SPACE]t e[SPA 
CE ] gaan " : gosub 1500 
660 geta$:if a$Ochr$(13) then 660 
670 gosub 880:goto 20 

680 rem-intro- 

690 scnclr:colorO,1:colorl,2:color4,3, 

3 

700 printchr$(14)chr$(8); 

710 print"CoLLISIoN[21xSPACE](c)sss[SP 
ACE]'88" 

720 print"[2xCRSR-DOWN][SPACE]Welkom[S 
PACE]bij[SPACE]'CoLLISIoN'[SPACE], 

[SPACE]een[SPACE]produkt" 

730 print"[2xSPACE]van[SPACE]Social[SP 
ACE]Software[SPACE]Services[SPACE] 
(SSS) . " 

740 print"[CRSR-DOWN][SPACE]Bij[SPACE] 

dit[SPACE]spel[SPACE]voor[SPACE]tw 
ee[SPACE]spelers[SPACE]is[SPACE]he 
t" 

750 print"[2xSPACE]de[SPACE]bedoeling[ 
SPACE]de[SPACE]tegenstander[SPACE] 
in[SPACE]te" 

760 print”[2xSPACE]sluiten[SPACE]zodat 
[SPACE]hij/zij[SPACE]tegen[SPACE]d 
e[SPACE]muur" 

770 print"[2xSPACE]botst.[SPACE]Daarbi 
j[SPACE]maakt[SPACE]het[SPACE]niet 
[SPACE]uit[SPACE]of" 

780 print"[2xSPACE]dat[SPACE]nou[SPACE 
]jouw[SPACE]muur[SPACE]is[SPACE],[ 
SPACE]of[SPACE]die[SPACE]van" 

790 print"[2xSPACE]hem/haar[SPACE]zelf 

II 

800 print"[CRSR-DOWN][SPACE]De[SPACE]b 
esturing[SPACE]geschiedt[SPACE]als 
[SPACE]volgt:" 

810 print"[CRSR-DOWN][2xSPACE]Speler[S 
PACE]1[SPACE](";:colorl,3,4:print" 
ROOD";:colorl,2:print")[SPACE]:joy 
stick[SPACE]1" 

815 print"[5xSPACE]speler[SPACE]1[SPAC 
E]start[SPACE]LINKSBOVEN" 

820 print"[2xSPACE]Speler[SPACE]2[SPAC 
E]([CTRL-6]GROEN[CTRL-2]):[SPACE]c 
ursor-toetsen" 

825 print"[5xSPACE]speler[SPACE]2[SPAC 
E]start[SPACE]RECHTSONDER" 

830 print"[CRSR-DOWN][2xSPACE](dit[SPA 
CE]is[SPACE]eventueel[SPACE]te[SPA 
CE]veranderen[SPACE]in[SPACE]de" 
840 print"[2xSPACE]regels[SPACE]240-31 
0) " 

850 print"[CRSR-DOWN][SPACE]Druk[SPACE 
]op[SPACE]'RETURN'[SPACE]voor[SPAC 
E]het[SPACE]keuze-menu" 

860 geta$:if a$Ochr$(13) then 860 

870 rem-keuze - menu- 

880 scnclr:if v=0then q=l:u=l:m=l 

890 keyl,"[COM-+]":key2,"[COM--]":key3 
,"[COM-|]":key8,"[COM-*]" 

900 color 0,1:colorl,8,5:color 4,1 
910 printchr$(142) 

920 print"[SHIFT-CLR][2xCRSR-DOWN][5xS 


PACE][COM-R][SPACE][COM-R]UCI[COM- 
R][SPACE][COM-R][COM-A]C[COM-S]UCI 
[2xSPACE]U[COM-R]IUCIUCI[COM-R][SP 
ACE][COM-R]" 

930 print"[5XSPACE][COM-Q][COM-R]K[COM 
Q]C [SPACE] [SHIFT—] [SPACE] [SHIFT- 
-]UCK[COM-Q]C[SPACE]CC[3xSHIFT--][ 
COM-Q]C[SPACE][SHIFT--][SPACE][2xS 
HIFT -][SPACE][SHIFT—]" 

940 print"[5xSPACE][COM-E]JCJCKJCK[COM 
Z]C[COM-X]JCK[2XSPACE][COM-E][SPA 
CE][COM-E]JCK[COM-E][SPACE][COM-E] 
JCK":gosub 1500 

950 if v=0then q$="zonder[SPACE]borde 
r" 

960 if v=0then u$="zonder[SPACE]obsta 
kels":v=l 

970 c$="snelheid[SPACE]:"+str$(m)+"[SP 

ACE] " 

980 print"[HOME][7xCRSR-DOWN][SPACE]fl 
[SPACE]:[SPACE]";q$ 

990 print"[CRSR-DOWN][SPACE]f2[SPACE]: 
[SPACE]";u$ 

1000 print"[CRSR-DOWN][SPACE]f3[SPACE]: 
[SPACE]";c$ 

1010 print"[CRSR-DOWN][SPACE]f4[SPACE]: 

[SPACE]starten" 

1020 get d$ 

1030 if d$="[COM-+]" and q=l then q$="[ 
CTRL-9][SPACE]met[SPACE]border[SPA 
CE][CTRL-0][2xSPACE]":q=0:goto 970 
1040 if d$="[COM-+]" and q=0then q$="z 
onder[SPACE]border":q=l:goto 970 
1050 if d$="[COM--]" and u=l then u$="[ 
CTRL-9][SPACE]met[SPACE]obstakels[ 
SPACE][CTRL-0][2xSPACE]":u=0:goto 
970 

1060 if d$="[COM--]" and u=0then u$="z 

onder[SPACE]obstakels":u=l:goto 970 
1070 if d$="[COM-|]" then m=m+l:if m=ll 
then m=l 

1080 if d$="[COM-*]" then goto 1100 
1090 goto 970 

1100 print"[SHIFT-CLR][5xCRSR-DOWN]" 

1110 colorl,6,7:printtab(10)"[COM-A]CIU 
CIUCI[COM-A]Cl[COM-R][SPACE][COM-R 
]UCI" 

1120 colorl,6,6:printtab (10)"[SHIFT--] [ 
SPACE][2xSHIFT--][2xSPACE][SHIFT— 

][SPACE][2xSHIFT--][SPACE][2xSHIFT 
-][SPACE][SHIFT--][2xSPACE][SHIFT 
-] " 

1130 colorl,6,5:printtab(10)"[COM-Q][CO 
M R]K[COM-Q]C[SPACE][COM-Q]C[COM-W 
][SHIFT--][SPACE][SHIFT--]J[COM-R] 
K[SPACE]UK" 

1140 colorl,6,4:printtab(10)"[2xSHIFT-- 
][SPACE][SHIFT—][2xSPACE][SHIFT— 

][SPACE][2xSHIFT—][SPACE][SHIFT— 

][SPACE][SHIFT--][2xSPACE][SHIFT-- 
] [SPACE]" 

1150 colorl,6,3:printtab(10)"[COM-E]JCJ 
CK[COM-E][SPACE][COM-E][COM-Z]CK[S 
PACE][COM-E][2xSPACE].[SPACE]" 

1160 for t=l to 1000:next t:print"[SHIF 
T CLR][5xCRSR-DOWN]" 

1170 colorl,6,7:printtab(10)"UCI[COM-A] 
[COM-R][COM-S]UCI[COM-A]Cl[COM-A][ 
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PRINT OUT » PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


COM-R][COM-S][SPACE][SHIFT--][SPAC 
E] " 

colorl,6,6:printtab(10)"[SHIFT--][ 
3ssSPACE] [SHIFT--] [SPACE] [SHIFT--] [ 
SPACE][2xSHÏFT—][SPACE][SHIFT--][ 
SPACE] [SHIFT—] [2xSPACE] [SHIFT—] [ 
SPACE]" 

colorl,6,5:printtab(10)"JCI[SPACE] 
[SHIFT--][SPACE][COM-QJC[COM-W][CO 
M Q] [COM-R]K[SPACE] [SHIFT--] [2xSPA 
CE][SHIFT--][SPACE]" 
colorl,6,4:printtab(10)"[2xSPACE][ 
SHIFT--][SPACE][SHIFT--][SPACE][SH 
IFT -][SPACE][3xSHIFT—][2xSPACE][ 
SHIFT--][2xSPACE][SHIFT--][SPACE]" 
colorl,6,3:printtab(10)"JCK[SPACE] 
[COM-E][SPACE][COM-E][SPACE][2xCOM 
E]JC[SPACE][COM-E][2xSPACE].[SPAC 
E] " 

for t=l to 600:next t:return 

rem - titel-soherm - 

scnclr:colorO,1:colorl,6,3:color4,1 
printchr$(142) 

print"[SHIFT-CLR]"tab(16)"press[SP 
ACE]key":print"[3xCRSR-DOWN]" 
colorl,6,3:printtab(10)"UCCCCC[SHI 
FT -]C[SHIFT--]CCCCCCCCC[COM-R]Cl" 
colorl,6,4:printtab(10)"[SHIFT--][ 
5XSPACE] [SHIFT--] [SPACE] [SHIFT—] [ 
SPACE].UCI.[3xSPACE][SHIFT--][SPAC 
E][SHIFT--]" 

colorl,6,5:printtab(10)"[SHIFT—][ 
2xSPACE]UCI[SHIFT--][SPACE][SHIFT- 
-][SPACE][SHIFT--]JCI[SHIFT--]UCI[ 
SHIFT--] [SPACE] [SHIFT—] " 
colorl,6,6:printtab(10)"[SHIFT—][ 
2xSPACE][SHIFT--][SPACE][2xSHIFT— 


][SPACE][SHIFT--][SPACE][SHIFT--][ 
2XSPACE][3XSHIFT—][SPACE][2XSHIFT 
-][SPACE][SHIFT--]" 

1310 colorl, 6, 7 .-printtab (10) "JCKJCKJCJC 
JJCKJJCKK[SPACE]K" 

1320 print"[CTRL-2]":for a=l to 19:vol 
8 -(20-a)/4 

1330 poke 3753+a,81:poke 3752+a,32 
1340 poke 3791-a,81:poke 3792-a,32 
1350 sound 3,200-a*10,1:sound l,200-a*l 
0 - 2,1 

1360 next a 

1370 p=3772:e=81:gosub 1420 

1380 for e=5+2*16 to 5+7*16 step 16 
1390 p=3772-1024:gosub 1420 

1400 get a$:if a$<>"" then return 
1410 next e:goto 1380 
1420 for a=0to 7:vol 8-a 
1430 sound 1,a*100+2+2*e,2:sound 2,a*10 
0+2*e,2 

1440 poke p-2*a,e:poke p+2*a,e 
1450 poke p+a*40,e:poke p-a*40,e 
1460 poke p+a*41,e:poke p+a*39,e 
1470 poke p-a*41,e:poke p-a*39,e 
1480 next a:return 

1490 rem-subr.'collision'- 

1500 print"[HOME][17xCRSR-DOWN]" 

1510 printtab(13)"UI[2xSPACE]BB.UI.[2xS 
PACE]UI" 

1520 printtab(13)"B[SPACE]UIBBBJIBUIBB" 
1530 printtab(13)"JKJKJJJJKJJKJJ" 

1540 return 

1550 rem -pb-sss'88- 

EINDE LISTING collis 16 


Checksum Collis 16 


O 
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GEOS info rubriek 
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D e populaire informatie rubriek 
voor de aktieve GEOS gebrui¬ 
ker, voor al uw vragen, suggesties 
en ideeën. 

Aanschaf diskdrive. 

Dhr. Polman schrijft ons dat hij naast zijn 
huidige configuratie, bestaande uit een 
C64 en een cassetterecorder een diskdrive 
wil aanschaffen. Hem is verteld dat er 
meerdere diskdrives voor de C64 ge¬ 
schikt zijn. Dit is inderdaad het geval. Nu 
vraagt hij ons welke drive het meest ge¬ 
schikt is om met GEOS 2.0 te kunnen 
werken. De ervaring leert ons dat de 
Commodore diskdrives het meest ge¬ 
schikt zijn voor gebruik met GEOS 2.0. 
enwel het type 1541, als u met een C64 
werkt en als u met een Cl28 gaat werken 
is een 1571 diskdrive ook zeer geschikt 
omdat u dan van de volle diskette capaci¬ 
teit (360 Kb.) gebruik kunt maken. Ande¬ 
re merken diskdrives kunnen ook best 
goed werken met GEOS, maar daarmee 
hebben we tot op heden geen ervaring. 
Wat betreft de prijzen, de Commodore 
diskdrives zijn tegenwoordig niet zo prij¬ 
zig meer als voor een paar jaar terug. 
Voor zo'n 300 gulden koopt u al een 1541 
diskdrive. Voorts vraagt dhr. Polman ons 


wat de mogelijkheden van een REU 
(Ram Expansie Unit) zijn en welke mo¬ 
dellen hierin verkrijgbaar zijn. Het zou te 
ver voeren om hier een hele verhandeling 
over een REU te gaan houden, maar in het 
kort komt het er op neer dat een REU 
(met GEOS) werkt als een soort diskdri¬ 
ve. Er zijn twee typen REU’s in de han¬ 
del, te weten de 1764 en 1751, respectie¬ 
velijk voor de C64 en Cl28. De eerste 
wordt geconfigureerd als een 1541 drive 
met een opslagcapaciteit van 165 Kbyte 
en de tweede als een 1571 drive met een 
capaciteit van 331 Kbyte. Het enige ver¬ 
schil met een gewone diskdrive is dat u er 
geen diskettes in hoeft te plaatsen. 

Aanschaf GEOS 2.0 

Dhr. E. Vermeulen uit Vreeland over¬ 
weegt de aanschaf van GEOS 2.0. maar 
heeft nog enkele vragen. Hij vindt dat de 
C64 van nature nogal traag is en een vrij 
kleine opslagcapaciteit heeft. Hieruit 
voortvloeiende luidt zijn vraag of dit met 
de aanschaf van GEOS 2.0 verholpen zal 
zijn. Ten eerste, de opslagcapaciteit zal 
door geen enkel programma wórden ver¬ 
groot, dus ook niet door GEOS. Wel 
wordt de opslagcapaciteit, voor wat be¬ 
treft het interne geheugen, uitgebreidt als 
u een RAM expansie (zie hiervoor) aan¬ 


schaft. Ten tweede wordt de snelheid wel 
enigszins verhoogd als u met GEOS 2.0 
gaat werken. Door de aanwezigheid van 
de zgn. diskTurbo worden diskettemani- 
pulaties zo’n 7 keer versneld. Verder zijn 
de applicaties, die onder het GEOS bestu¬ 
ringssysteem allemaal snel, omdat ze zijn 
geschreven in een assembleertaal, het¬ 
geen een extra vertaalslag overbodig 
maakt. Daarnaast is het gehele GEOS 
concept gebaseerd op een snelle werking, 
omdat gebruik gemaakt wordt van een 
scala aan standaard programma routines. 
Op uw vraag of u uw huidige program¬ 
ma's kunt blijven gebruiken, kunnen we 
zeggen dat dit inderdaad mogelijk is. 
Echter blijven deze programma’s met hun 
eigen karakteristieken werken. GEOS 
wordt echter geleverd met standaard een 
tekstverwerker en een tekenprogramma. 
Voorts zijn er in de GEOS serie nog an¬ 
dere applicaties verkrijgbaar, zoals een 
spreadsheet, database, DeskTop Publis- 
hingpakket, een grafiekprogramma en 
nog vele andere Utilities. Op uw laatste 
vraag, wat is een printerdriver. Dit is een 
stukje programma, wat u echter alleen no¬ 
dig heeft bij gebruik van GEOS. Dit pro¬ 
gramma stuurt de betreffende printer aan, 
welke is aangesloten aan uw computer. 
De verschillende printerdrivers worden 
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standaard meegeleverd met het GEOS 2.0 
besturingssysteem. 

Installeren van GEOS. 

Van de heer R. Sieben uit Stein ontvingen 
we een schrijven dat het installatieproces 
bij hem niet zo goed is verlopen. Nadat 
hij de Systemdisk had geïnstalleerd, wilde 
hij de applications disk instal¬ 
leren. Tot zijn verbazing stond 
hier niet GeoWrite op. Na con¬ 
tact met de leverancier gehad 
te hebben heeft hij het installa¬ 
tieproces stop gezet. Dit laatste 
is niet het slimste om te doen. 

Nimmer moet men tijdens het 
installeren het proces afbreken. 

Mijnheer Sieben refereert naar 
de zojuist verschenen Neder¬ 
landse basishandleiding, waa¬ 
rin een afbeelding staat met 
GeoWrite op één diskette tesa- 
men met GeoPaint en de 
DeskTop. Het is best mogelijk 
dat de applicatie GeoWrite op 
de volgende pagina van de 
DeskTop is afgebeeld. Is dit 
echter niet geval dan dient u 
zich wederom tot uw leveran¬ 
cier te wenden, die dan voor 
een vervangend exemplaar 
dient zorg te dragen. 

Vervangende GEOS 
disk. 

Van Marco de Hoogh uit Al- 
phen aan de Rijn ontvingen we een brief 
waarin hij schrijft dat hij vorig jaar het 
pakket GeoPublish had aangeschaft. Ech¬ 
ter nadat deze was geïnstalleerd met zijn 
GEOS diskette bleek dat zijn bootdiskette 
van GEOS niet juist werkte. Na contact 
gehad te hebben met de leverancier, krijgt 
hij een nieuwe GEOS bootdiskette toege¬ 
stuurd. Echter nu blijkt zijn eerder ge¬ 
bruikte GeoPublish niet meer te werken. 
Dit klopt inderdaad, want als u een appli¬ 
catie koopt en installeert met een GEOS 
bootdiskette, dan wordt op het moment 
van installeren een bepaalde code naar 
uw applicatiediskette geschreven. 

Deze code voorkomt dat er illegale co- 
pieën van GEOS pakketten in de omloop 
komen. Hiermee is uw probleem dus niet 
opgelost. Er zijn nu twee mogelijkheden. 
De eerste is om contact op te nemen met 
de Stichting Geos Gebruikers in Almere, 
die telefonisch bereikbaar zijn onder 
nummer 03240- 10041 of als u het schrif¬ 
telijk wilt doen Postbus 52 1300 AB Al¬ 
mere. Deze Gebruikers Groep kan u wel¬ 
licht helpen, omdat in deze gebruikers 
groep ook de support afdeling van de 
GEOS importeur is ondergebracht. 

Een tweede mogelijkheid is de aanschaf 


van GEOS 2.0. Dit pakket is in staat om 
| reeds eerder geinstalleerde applicatie in te 
sleutelen met de code die op één van uw 
applicaties is weggeschreven. Neem in dit 
geval contact op met uw leverancier en 
probeer het een en ander voor beide par¬ 
tijen gunstig op te lossen. 




Stichting Geos Gebruikers. 

We hebben al een paar keer eerder mel¬ 
ding gemaakt van het bestaan van deze 
gebruikersgroep. Toch willen we nog¬ 
maals uw aandacht vestigen op deze 
stichting. Te meer omdat er voor een 
klein bedrag per jaar een hoop activiteiten 
voor u worden verwezenlijkt. Zo ont¬ 
vangt u een aantal keren per jaar de 
GEOS Nieuwsbrief, met allerlei nuttige 
tips en trucs. Voorts wordt in dit perio¬ 
diek aandacht besteed aan buitenlandse 
activiteiten op het gebied van GEOS. 
Naast dit alles worden er regelmatig bij¬ 
eenkomsten georganiseerd, waar actieve 
GEOS gebruikers ervaringen en Public 
Domain software uitwisselen. Kortom 
bent u een actieve GEOS gebruiker, dan 
is deze gebruikers groep een must. Nog 
één keer het adres, Stichting Geos Ge¬ 
bruikers, Postbus 52, 1300 AB Almere. 

Buitenlands GEOS nieuws. 

Diegenen onder u die wel eens een bui¬ 
tenlands blad over Commodore compu¬ 
ters aanschaft, zal inmiddels wel gemerkt 
hebben dat deze bladen ook ruime aan¬ 
dacht besteden aan de GEOS programma¬ 
lijn. In Duitsland gaat men op dit gebied 
wel heel erg ver. Zo brengt het software¬ 


huis Markt & Technik de gehele GEOS- 
' lijn in het Duits op de markt. Niet alleen 
de handleidingen zijn vertaald maar ook 
de programma's zelf zijn in het Duits ge¬ 
converteerd. Helaas is de afzet van GEOS 
programma’s in Nederland niet van zo’n 
omvangrijke schaal dat men het kosten¬ 
dekkend kan gaan vertalen. Maar wat die 
mensen in Duitsland doen 
heeft toch wel veel voorde¬ 
len, zowel voor de gebruiker 
als voor de softwaremarkt op 
zich. De gebruiker voelt zich 
natuurlijk gelijk thuis in zo’n 
geavanceerd programma, dat 
dan ook nog in zijn moeder¬ 
taal is geschreven. Voor de 
programmeurs is de omzet 
van de pakketten een stimu¬ 
lans om allerlei applicaties 
voor dit slinmme besturings¬ 
systeem te ontwikkelen (het¬ 
geen hier ook eens zou moe¬ 
ten gebeuren). Zo bracht het¬ 
zelfde softwarehuis kortgele¬ 
den een nieuw pakket op de 
Duitse software markt, het 
Mega Pack 1 voor GEOS. 
Een boek met 3 diskettes vol 
met allerlei nuttige utility 
programma’s, die kunnen 
worden gebruikt in samen¬ 
werking met GEOS. 

Een uitgebreide plaatjesbi¬ 
bliotheek, een converteerpro- 
gramma voor het omzetten 
van allerlei graphics, een ver¬ 
zameling letterfonts, een applicatie om 
een printerdriver aan te kunnen passen 
aan uw eigen configuratie en nog veel 
meer. Het bijbehorende boek telt maar 
liefst 120 pagina’s. Het pakket wordt in 
Duitsland op de markt gebracht en is te¬ 
vens in Nederland verkrijgbaar bij het 
Computer Collectief voor fl. 79,00. 


Foutje in Printshop Converter. 

In de vorige Commodore Info werd aan¬ 
dacht besteed aan een drietal program¬ 
ma’s van Patrick Cools uit Varsenaere. 
Hierbij was ondermeer het programma 
Printshop Converter. Helaas stonden hie¬ 
rin een tweetal kleine foutjes. Hieronder 
zijn de correcte regels weergegeven. De 
volgende regels moeten worden gewij¬ 
zigd, 

regel 370 moet worden FOR 1 = 0 TO 5 
en regel 410 moet worden IF B = 33038 
THEN 450. Met deze correcties moet het 
I geheel soepel verlopen. 

Bert Venema 
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Binnenin AmigaDOS 9 (slot) 



N et nu u gewend bent aan een 
vaste verschijning in uw favo¬ 
riete blad, nooit gedacht dat ook 
in onze gelederen aan alles een 
einde komt. Nederland dreigt 
weer een verschijning armer te 
worden...dit, geachte lezers, zijn 
de laatste woorden die u ooit nog 
zult lezen van onze beruchte en 
toch ook tegelijkertijd befaamde 
cursus. 

Zo we moesten even de zin afsluiten an¬ 
ders stond het zo lullig. Nee, wij gaan niet 
naar TV 10, Veronique of Amiga magazi¬ 
ne van Markt & Technik. Simpelweg, we 
zijn binnen de huidige doelstellingen van 
de cursus Binnenin AmigaDOS uitge¬ 
sproken. Een aantal afleveringen geleden 
dreigden de donkere wolken van uitge¬ 
sproken zinnen ons land der kennis al te 
overschaduwen. Echter bijtijds liet Com¬ 
modore de zon van WorkBench 1.3 weer 
volop schijnen. Na een kleine spoedkur- 
sus WB1.3 en enkele dagen tot diep in het 
holst van de nacht experimenteren waren 
wij slagvaardig en konden onze vingers 
weer over het QWERTY toetsenbord la¬ 
ten flitsen. Helaas, dit keer dreigt het an¬ 
ders te gaan. Wc z.icn ons lot met gerechte 
rug en opgeheven hoofd tegemoet. Laat 
de golven der onwetendheid ons maar 
overspoelen, ’we shall overcome, i'11 sur- 
vive, we komen terug’ of woorden van 
gelijke strekking. Het wachten is alleen 
op nieuwe ideëen, nieuwe vormgeving en 
WorkBench 1.4, want als we de geruch¬ 
ten mogen geloven zal dit ook niet al te 
lang meer duren. 

Hoe nog 1 les vol te houden 

De gedachte zou kunnen rijzen, ’when all 
words have been said, what’s left to 
say?’, of voor de rechtgeaarde Nederlan¬ 
der, als nu alles al behandeld is, wat moet 
er dan nog besproken worden? Een zeer 
juiste gedachte zegt ons filosofisch doch 
niet genoeg van logistiek doorgedrongen 
linkerhelft van de hersenen. We zouden 
drie bladzijden vol kunnen schrijven met 
hypothetisch geklets, dat zou echter leden 
kunnen kosten. We kunnen ook de Hil- 
versumse methode handhaven, herhalen, 
herhalen en vooral ’repeaten' (Engels 
voor herhalen). Een 80 watts lichtje gaat 
ons op. Hadden we de vorige keer onzelf 
geen suggestie gedaan. Jawel. Even C- 


Info nummer 5 erop naslaan. Veel bla- 
blaa... eeuh...We gaan nog een keer in op 
het aspect "hoe eigen DOS., zie je wel. 
We wisten het wel! Waren we weer eens 
wat vergeten! Hoeveel tijd tot dc ’dcad- 
line’? 4 Dagen. Moet kunnen. Dit wordt 
'stressen’ en ’developpen’. Wat zou inter- 
resant kunnen zijn....eerst maar even ste¬ 
vig 'brainstormen’. Tot over een kwar¬ 
tiertje. 

Eigen DOS commando’s 

Eigen DOS commando’s. De droom van 
elke computerbezitter. Tenminste, van 
sommige dan.. U leest nog steeds? Goed, 
dan bent u dus één van de weinigen die 
uw eigen DOS commando’s wilt pro¬ 
grammeren. Het volgende vereist enige 
kennis van de taal C. (Niet zo heel veel. 
een tikkeltje) 

Slechts weinige DOS commando’s be¬ 
hoeven geen input van variabelen, dus er 
moet een mogelijkheid bestaan om varia¬ 
belen vanuit de DOS omgeving naar het 
commando te transporteren. Hoe.., is de 
grote vraag. Het is niet zo moeilijk als het 
lijkt. Vrijwel elk C handboek geeft aan 
hoe dit te doen. Een C programma start op 
door de main() functie uit te voeren. Va¬ 
riabelen die aan het programma door 
moeten worden gegeven zullen dus op 
één of de andere manier in de main() 
functie ingelezen moeten worden. De op¬ 
lossing luidt als volgt. Tussen de haakjes, 
’(’ en van de mainfunctie kunnen twee 
variabelen opgegeven worden, te weten 
argv en argc. Deze twee variabelen na¬ 
men staan voor respectievelijk, argument 
variable en argument counter. In argc, de 
argument counter, wordt bijgehouden 
hoeveel variabelen van de commandore- 


gel worden 'doorgesluist’ naar het 
programma. In de array argv[], de argu- 
mentvariabele(s), worden de pointers 
naar de variabelen vermeldt. Door nu 
argv[] als pointer naar een char of UBY- 
TE te declareren kunt u de strings (lees 
variabelen) rechtstreeks uitlezen, afprin¬ 
ten, vergelijken of wat dan meer. That’s 
all! Meer is er niet aan. Dóódsimpel niet¬ 
waar! Het wordt nu eerst tijd voor een 
voorbeeld. Bekijk programma 1. Het doet 
niets meer dan nagaan hoeveel variabelen 
in worden gegeven en het beeldt deze ver¬ 
volgens in het DOS venster af. 

Nieuwe DOS commando’s 

Als klapstuk hebben we drie nieuwe com¬ 
mando’s geprogrammeerd. De comman¬ 
do’s heten, Reet, Line en Circle en u kunt 
ze vinden in dit artikel als programma 2,3 
en 4. Zoals de namen al doen vermoeden 
zijn ze bedoeld voor grafisch tekenwerk 
in het DOS venster. Van elk van de com¬ 
mando’s volgt nu een korte beschrijving 
zoals u van ons gewend was. 

Line 

Het meest simpele programma van de 
drie! Line zorgt er voor dat er een lijn 
wordt getekend. U geeft de start-x en -y 
posities en de bestemming-x en -y posi¬ 
ties op en de lijn wordt getekend. Hoe 
luidt de syntax van Line: 

LINE start-x start-y bestemming-x be¬ 
ste mming-y [kleur] 

Geen opties of iets van dien aard. 

Het is niet noodzakelijk de kleur op te ge¬ 
ven, het commando zal standaard de kleur 
in register 1 gebruiken. 
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Treedt er een fout in het programma op 
dan zal de WARN (=5) flag gezet wor¬ 
den. Een voorbeeld: 

LINE 10 10 300 100 2 

Er zal een lijn getrokken worden van 
10,10 naar 300,100 die de kleur zal heb¬ 
ben zoals is opgegeven in register 2. 

Reet 

Ook hier spreekt de naam voor zichzelf. 
Het commando zal naar keuze een niet of 
wel ingevuld rechthoek op het scherm to¬ 
veren. Geef de x- en y positie op en de x- 
en y lengte en het commando geeft al re¬ 
sultaat. Overschrijding van de Work- 
Bench schermmaten zal in een fout resul¬ 
teren en ook hier zal bij een fout de 
WARN flag gezet worden. 

Syntax van Reet: 

RECT ,v y xlengte ylengte [fill] [kleur] 

Het vullen van de rechthoek en de kleur 
zijn hier optioneel. Als u een gevulde 
rechthoek wilt geeft u 1 op, een niet ge¬ 
vulde rechthoek verschijnt als een 0 hier 
invult. U hoeft niets in te vullen. Stan¬ 
daard gebruikt het commando NIET IN¬ 
VULLEN. 

Als u de kleur op wilt geven dan zult u 
ook op moeten geven of de rechthoek in¬ 
gevuld of niet ingevuld moet worden. De 
kleur zal door het commando standaard 
op de kleur in register 1 gezet worden. 


Een voorbeeld van Reet: 

j RECT 50 10 450 100 1 2 

Het voorbeeld zal resulteren in een recht¬ 
hoek beginnende op positie 50,10 en zal 
een lengte hebben van 450. De breedte 
zal in dit voorbeeld 100 pixels bedragen. 

! Ook de invulparameter en de kleurpara- 
meter zijn hier ingevuld. De rechthoek zal 
ingevuld worden en het geheel zal de 
kleur hebben die opgegeven is in kleurre- 
gister 2. 

Circle 

Tot slot het laatste nieuwe DOS comman¬ 
do. Het commando Circle zal een circel 
op het beeldscherm tekenen. U geeft de x- 
en y positie van het centrum van de circel 
op en tl geeft de straal op. Het commando 
zal de gewenste circel dan voor u tekenen. 
De syntax van Circle: 

CIRCLE x y straal [stap] [kleur] [aspect] 

De x-, y positie en straal zullen voor u 
duidelijk zijn. De waarde die u voor stap 
invult, bepaald hoe nauwkeurig en daar¬ 
mee ook hoe snel, de circel getekent 
wordt. Standaard zal de waarde 10 ge¬ 
bruikt worden. Elke waarde groter zal 
vooreen hogere rekensnelheid zorgen. De 
circel zal tevens meer en meer afwijken 
van de circelvorm. De mogelijkheid be¬ 
staat zelfs om een driehoek te tekenen! 
Elke waarde kleiner zorgt voor een nauw¬ 
keurigere circel doch u zult het verschil 
nauwelijks of niet kunnen zien. De snel¬ 
heid zal met de kleinere waarden wel 
drastisch afnemen. Dus kleinere waarden 
zijn eigenlijk niet nodig. 

De kleur zal ondertussen, gezien de vori¬ 
ge twee commando's, duidelijk zijn. Als 
laatste is er dan nog de aspect ratio. Zoals 
u weet is het DOS-scherm 640 pixels 
breed en maximaal 256 pixels hoog. 
Doordat de pixels hoger zijn dan ze breed 
zijn zal de circel niet rond worden. Van¬ 
daar dat er een aspect ratio wordt gebruikt 
om de circel te veranderen. Het comman¬ 
do gebruikt standaard de waarde 2.1. Een 
waarde kleiner zal zorgen dat er een smal¬ 
lere circel ontstaat, een grotere waarde 
dan 2.1 zal voor een meer afgeplatte cir¬ 
cel zorgen. 

Een voorbeeld: 

CIRCLE 300 100 50 10 2 2.5 

Hierdoor zal een circel met een middel¬ 
punt op de coördinaten 300,100 en een 
straal van 50 getekend worden. De stap- 
grootte is 10. De circel zal getekend wor¬ 
den in de kleur die opgeslagen is in regis¬ 
ter 2 en zal door de aspect van 2.5 lichte¬ 
lijk afgeplat zijn. 

Een waarschuwing is op z’n plaats. Het 
commando controleert niet of de circel 
buiten de grenzen van het scherm gete¬ 
kent wordt. Is dit het geval, dan is het niet 


denkbeeldig dat de computer gaat ’han- 
! gen'. 

Epiloog 

Het einde! We hebben alles nu verteld 
binnen het kader van deze cursus. Dit be- 
tekent echter niet dat Commodore INFO 
niets meer aan AmigaDOS gaat doen, 
integendeel. Nog vele artikelen zullen 
volgen. Met uw medewerking zullen we 
vele nieuwe DOS commando's publice¬ 
ren in de Tips en trucs hoek. 

Wat het echter wel betekent is dat de serie 







Binnenin AmigaDOS, met dit laatste arti¬ 
kel als slot. definitief tot het verleden gaat 
behoren. 

De laatste woorden zijn gesproken. Au 
revoir mes amis! May the force be with 
you, we’11 meet again. 

Johan &johan. 


Programma 1. Een simpel 
voorbeeld DOS commando. 


Instructies. 

Programmanaam 

: simpeld.c 

Programmeertaal 

: C 

Gebruikt programma : Aztek C v3.6 

Opties 

: cc simpeld.c +L 
In simpeld.o -Ic32 

Aanroep 

: simpeld 


#include "functions.h" 
#include "exec/types.h" 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

register int i; 

printf("Aantal variabelen 
=> %2d\n",argc); 

for(i=0;i<argc;i++) 

printf("Variabele %2d. . . 
luidt => %s\n",i,argv[i]); 

} 
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Programma 2. 

Grafisch DOS commando LINE 


Instructies. 


Programmanaam ; line.c 

Programmeertaal : C 

Gebruikt programma : Aztek C v3.6 

Opties : cc line.c +L 

In line.o -Ic32 

Aanroep : line s_x s_y d_x d_y [kleur] 


#include "functions.h" 

#include "exec/types .h.'* 
#include "graphics/gfxbase.h" 
finclude 

"intuition/intuitionbase.h" 


#define RP 

IntuitionBase->ActiveScreen 
->RastPort 


Quit (5,"Workbench 
resoluties : 0<x<640, 
0<y<256\n"); 

Quit (0,"") ; 

} 

Quit(how,why) 

int how; 
char *why; 

{ 

printf("%s",why); 

if(IntuitionBase!=NULL) 
CloseLibpary(IntuitionBase); 
if(GfxBase!=NULL) 

CloseLibary(GfxBase); 

exit(how); 

} 


Programma 3. 

Grafisch DOS commando: RECT 


Instructies. 


struct IntuitionBase. 

*IntuitionBase; 
struct GfxBase *GfxBase; 

main(argc,argv) 
int argc; 
char *argv[]; 

i 

SHORT xl,yl,x2,y2,kleur; 


Programmanaam 
Programmeertaal 
Gebruikt programma 
Opties 


Aanroep 


C 

Aztek C v3i 
cc rect.c +L 
In reet.o -Ic32 
: reet x y xl yl [fill][kleur] 


if(!(IntuitionBase=(struct 
IntuitionBase *) 

OpenLibrary("intuition.libr 
ary",0L))) 

Quit (5,"Geen 
intuition.library!\n"); 
if(! (GfxBase= (struct GfxBase 
*) 

OpenLibrary("graphics.libra 
ry",0L))) 

Quit(5,"Geen 
graphics.library!\n" ) ; 

if (argc==l) 

Quit (5,"Syntax van LINE: 

LINE xl yl x2 y2 
[kleur]\n") ; 

xl=atoi(argv[1]); 
yl=atoi(argv[2] ) ; 
x2=atoi(argv [3]); 
y2=atoi(argv[4]); 
if(!(kleur=atoi(argv[5]))) 
kleur=l; 


#include "functions.h" 

#include "exec/types.h" 
linclude "graphics/gfxbase.h" 
#include 

"graphics/gfxmacros.h" 
#include 

"intuition/intuitionbase. h" 
#define RP 

IntuitionBase->ActiveScreen 
->RastPort 

struct IntuitionBase 
* IntuitionBase; 
struct GfxBase *GfxBase; 

main(argc,argv) 
int argc; 
char *argv[J; 
f 

SHORT 

x,y,XLength,YLength,kleur; 
BOOL f i 11; 

if(! (IntuitionBase= (struct 
IntuitionBase *) 


if (xl>0 && x1<640) && (x2>0 

&& x2<640) && 

(y1>0 && yl<256) && (y2>0 

&& y2<256)) 

{ 

SetDrMd(&RP,JAM1); 

SetAPen(&RP,kleur); 

Move(&RP,xl,y1); 

Draw(&RP,x2,y2); 

| 

else 


OpenLibrary("intuition.libr 
ary",0L))) 

Quit (5,"Geen 
intuition.library!\n"); 
if(! (GfxBase= (struct GfxBase 
*) 

OpenLibrary("graphics.libra 
ry",OL))) 

Quit (5,"Geen 
graphics.library!\n"); 


if (argc==l) 

Quit (5,"Syntax van RECT: 

RECT x y x_length 
y_length [fill=0 of 1] 
[kleur] \n") ; 

x=atoi(argv[1]) ; 
y=atoi (argv[2]); 

XLength=atoi(argv[3]); 
YLength=atoi(argv[4]); 
if (! (fill=atoi(argv[5]))) 
fill=FALSE; 

if ( ! (kleur=atoi(argv[6]))) 
kleur=l; 

if ( (x>0 && x<640) && 

(x+XLength>0 && 
xtXLength<64Ó) && 

(y>0 && y<256) && 
(y+YLength>0 && 
y+YLength<64 0)) 

{ 

SetDrMd(&RP,JAM1); 
SetAPen(&RP, kleur) ; 
switch (fi11) 

{ 

case FALSE: 

Move(&RP,x,y); 

Draw(&RP,x+XLength,y); 

Draw(&RP,x+XLength,y+YLengt 
h) ; 

Draw(&RP,x,y+YLength); 

Draw(&RP,x,y); 
break; 

case TRUE: 

BNDRYOFF(& RP) ; 

RectFi11(&RP,x,y,x+XLength, 
y+YLength); 

break; 

} 

) 

else 

Quit(5,"WorkBench 
resoluties: '0<x<640, 
0<y<256\n"); 

Quit(0, "") ; 

} 


Quit(how,why) 
int how; 
char *why; 

{ 

printf("%s",why); 

if (IntuitionBase!=NULL) 

CloseLibrary(IntuitionBase) 

if (GfxBase!=NULL) 

CloseLibrary (GfxBase); 

exit(how); 

} 

Programma 4. 

Grafisch DOS commando CIRCLE 


Instructies. 
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Programmanaam : circle.c 

Programmeertaal : C 

Gebruikt programma : Aztek C v3.6 

Opties : cc circle.c +L 

In circle.o -Im32 -Ic32 
Aanroep : circle x y straal [stap] 
[kleur][aspect] 


#include "functions.h" 

#include "math.h" 

#include "exec/types.h" 
#include "graphics/gfxbase.h" 
#include 

"intuition/intuitionbase.h" 
fdefine RP 

IntuitionBase-RActiveScreen 
->RastPort 
#define PI 22.0/7.0 

struct IntuitionBase 
*IntuitionBase; 
struct GfxBase *GfxBase; 

DOUBLÉ atof () ; 

main(argc,argv) 
int argc; 
char *argv[]; 

{ 

SHORT x, y,straal,kleur; 

DOUBLÉ aspect; 
register int i,xn,yn; 


if (! (IntuitionBase=(struct 
IntuitionBase *) 

OpenLibrary("intuition.libr 
ary",OL))) 

Quit(5,"Geen 
intuition.library!\n" ) ; 
if (! (GfxBase=(struct GfxBase 
*) 

OpenLibrary("graphics.libra 
ry",OL))) 

Quit (5,"Geen 
graphics.library!\n"); 

if(argc==l) 

Quit (5,"Syntax van CIRCLE: 
CIRCLE x y straal [stap] 
[kleur] [aspect]\n"); 

x=atoi (argv[l] ) ; 
y=atoi(argv[2]) ; 
straal=atoi(argv[3]); 
if ( ! (stap=atoi (argv [4 ].) ) ) 
stap=l0; 

if (! (kleur=atoi(argv[5] ) ) ) 
kleur=l; 

if(!(aspect=atoi(argv[6]))) 
aspect=2.1; 

SetDrMd(&RP,JAM1); 

SetAPen(&RP, kleur) ; 


xn=x+aspect*(straal*cos(0.0 

) ) ; 

yn=y+(straal*sin(0.0) ) ; 


Move(&RP,xn,yn); 

for(i=0;i<361;i+=stap) 

{ 

xn=x+aspect*(straal*cos(PI/ 
180.0*(float)i)); 

yn=y+(straal*sin(PI/180.0*( 
float)i)) ; 

Draw(&RP,xn,yn); 

} 

Quit (0, "") ; 

} 

Quit(how,why) 
int how; 
char *why; 

{ 

print f("%s",why); 

if(IntuitionBase!=NULL) 

CloseLibrary(IntuitionBase) 

if(GfxBase!=NULL) 

CloseLibrary(GfxBase); 

exit(how); 

}. 
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Killers & bandieten 


Tips en trucs voor de Amiga 


N et een nieuwe CD gekocht. 

Klinkt wel lekker! Hmm, zo 
gaat je humeur ook weer stukken 
vooruit. Wist je dat psychologisch 
onderzoek aangewezen heeft dat 
de werkprestatie van mensen 
enorm vooruit gaat als je de juiste 
muziek draait! HAAAARRRR- 
RYYYY.... Goed, even to the point.. 

Tjonge jonge, een moordlustige kop dit 
keer. Hopelijk is de inhoud iets minder in 
die richting. Nee. geen handleiding tot vi¬ 
russen dit keer. By the way, nog last ge¬ 
had van zwart uitslaande schermen, niet 
geheel naar uw zin functionerende com¬ 
puters en meer van dat soort gedonder? 
Druk eens 'ALT, COMMODORE, SPA¬ 
TIE, AMIGA en ALT. Functioneert de 
computer weer. Juist ja, een BYTE BAN- 
D1T. Even opnieuw installeren die 
schijf!! 

PokeMania II 

Nee, geen nieuwe poke’s. Alleen even 
een kleine toevoeging op wat er in de vo¬ 
rige aflevering gedrukt is. Door enige 
kleine fout(en)jes, zijn we vergeten de 
naam van de inzender af te drukken. Dat 
volgt dus nu even. De inzender was, Mar- 
tijn Schot uit Terschelling. Martijn, 'keep 
up the good work’ en houd vooral niet op 
in te sturen!! 

Sereens op 80 graden Celcius 

Geen paniek, uw monitor zal er niet van 
te lijden hebben. Geen brand in uw video- 
processor of wat voor catastrofale arma- 
geddon-achtige verschijnselen dan nog 
meer. Integendeel zelfs. Een bijzonder 
leuk grafisch grapje kregen we inge¬ 
stuurd. In assembly dit keer. Gebruik de 
Seka assembler. Typ de source in en 
schrijf deze daarna weg met het W (lees 
Write) commando. Typ hierna A in, wat 
voor Assemble staat. Schrijf hierna de 
uitvoerbare file weg naar disk door mid¬ 
del van het WO (WriteObject) comman¬ 
do. Nu kunt u, zowel vanuit de Seka as¬ 
sembler als vanuit DOS, het commando 
uit voeren. Druk de ’G’ toets, wat voor 
Go staat, waardoor het commando uitge¬ 


voerd wordt, of druk het uitroepteken '!’ 
in waardoor u in DOS komt. Vanuit DOS 
typt u de naam in waaronder u het met 
WO heeft weggeschreven. 

Genoeg uitgelegd, hier is de listing. 

* CRUNCH SCREEN, SOURCE BY M. 


move #0,D3 

move #639,D4 

pixels in x- en -1 in 
y-richting 
move #126,D5 

jsr ScrollRaster(A6) 

;scroll 


KOEL 


move. 1 

IntBase,Al 



move. 1 

52(Al),Al ;haal 

ExecBase 

= 4 

rastport 


OpenLibrary 

= -408 

move. 1 

50(Al),Al 

ScrollRaster 

= -396 

move 

#0, DO 



;scroll gebied 

movem.1 D0-D7/A0-A6,-(A7) 

move 

#1,01 

; registers 

redden 

move 

#0, D2 

; Haal Grapb 

.ics Base 

;(0,126)-(639,256) 

move. 1 

ExecBase,A6 

move 

#126,D3 

lea 

GfxLib,Al 

move 

#639,D4 

s r 

OpenLibrary(A6) 

move 

#256,D5 

move. 1 

DO, G.fxBase 

jsr 

ScrollRaster(A6) 

; Haal Intuition Base 

;scroll naar boven, 0 in x 



en 1 in y 


lea 

IntLib,Al 



jsr 

OpenLibrary(A6) 

dbra 

D6,loop ;en 

move. 1 

DO,IntBase 

herhaal 


move. 1 

#126,D6 

movem. 1 

(A7)+,D0-D7/A0-A6 

move. 1 

GfxBase,A6 

;herstel registers 



rts 


; herhaal 126 keer 





GfxLib: dc.b 


Loop: 


"graphics. 

library",0 

move. 1 

IntBase,Al 

IntLib: dc.b 


move . 1 

52(Al),Al ;haal 

"intuition 

.library",0 

rastport 
move.1 

50(Al) , Al 

even 


move 

#0,D0 ;scroll 



gebied 

#-l,Dl 

GfxBase: dc.1 

0 

move 

IntBase: dc.1 

0 

move 

#0, D2 



; ( 0 , 0 )- ( 

639,126) 

Door: Martin Koel uit Heerhugowaard. 

--- 1 


Waarschuwing 


In het vorige nummer van Commodore Info stond een POKE voor de Amiga: 

POKE 8 97 7,34 = mouse-pointer verdwijnt; 

POKE 8 977,12 = mouse-pointer verschijnt weer. 

Als je niet wilt riskeren datje de beruchte melding “software error” krijgt, laat deze 
truc dan achterwege! 

Het genoemde effect doet zich namelijk inderdaad voor, maar een foutmelding, een 
Requester (bv “No disk present in unit...”) en de opdracht ON ERROR GOTO zijn 
dan levensgevaarlijk geworden. 

Ferry Groothedde (Het Computerblad AMIGA) 
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Arkanoid Revenge of Doh 

Voor de spelliefhebbers is deze. Het is 
maar een zeer korte doch wel leuke. Houd 
onder het laden de linkermuisknop inge¬ 
drukt. Wacht enige tijd. En zie wat er ver¬ 
schijnt!!! 

Sword of Sodan 

Kent u dit spel al. Een zeer fraai spel. Gi¬ 
gantisch goeie graphics en zeer fraaie 
samples en melodieën. Toch valt het bij¬ 
zonder tegen om het spel te spelen. Voor 
je het weet wordt je goed onderuit ge¬ 
haald en kun je de rest van het spel wel 
schudden want dat krijg je niet te zien. 
Ook hier is een oplossing voor. Oneindi¬ 
ge levens heet het. Hoe deze te krijgen 
vraagt u zich nu af. Volg de volgende in¬ 
structies. 

Laad het spel en kies ’HERO’. Zorg er nu 
voor dat je al je levens verliest in het 
EERSTE scherm. Kies nu opnieuw, ech¬ 
ter kies dan voor 'HEROÏNE'. Je dappere 
heldin zal nu onverslaanbaar zijn want ze 
beschikt over oneindige levens. Als je 
achter alle geheimen van het spel, vooral 
in het kasteel, wilt komen, dan zul je nu 
ongeveer 40 minuten nodig hebben om 
het spel te volbrengen. Succes! 

Schone schermen 

Werkt u veel in CLI en heeft u nogal eens 
last van een smerig (niet beeld- 
buissmerig!) scherm, let dan even op 
want de volgende tip is voor u. 

Er zijn drie manieren om een CLI scherm 
schoon te krijgen. 

1. ECHO “*ec”. Het echo commando 
wordt geladen en scherm wordt schoon 
geveegd. 

2. ALIAS clear ECHO “*E[0;0H*E[J”. 
Dit is alleen toe te passen in de nieuwe 
SHELL van WorkBench 1.3 en wordt ge¬ 
woonlijk al automatisch gedaan in de 
shell-startup routine die door het new- 
shell commando automatisch uitgevoerd 
wordt. Typ ’clear’ in en het ECHO com¬ 
mando wordt geladen. 

3. Onze nieuwe manier. We hebben een 
kleine C routine geschreven (piepklein en 
wordt toch oh zo groot!) welke het ASCII 
teken 12 afprint. Deze zorgt ervoor dat 
het besturingssysteem het beeldscherm 
schoon maakt. 

Hier volgt het listinkje. 

main () 

{ 

printf("%c",12); 

} 


Dat is alles, klein maar fijn zullen we 
maar zeggen. Cömpile en link het onder 
de naam 'cls.c' en ’cls.o’ en zet het uit¬ 
voerbare bestand 'cis' in uw c-directory. 
Als u voortaan 'cis' intypt zal het scherm 
gewist worden. O ik wordt er zo ziek van 


Listing bij Move in DOS 

iinclude "stdio.h" 

#include "functions.h" 

#include "exec/types.h" 

#define EEN 1 
Idefine END 255 

Quit(höw,why) 
int how; 
char *why; 

( 

printf("%s", why) ; 
exit(how); 

} 

main(argc,argv) 
int argc; 
char *argv[]; 

f 

FILE *Filel,*File2,*fopen () ; 
register int ±,j; 

UBYTE FileRNaam[30],FileWNaam[30],* 

if (argc <= EEN }J strcmp("?",argv[1])==NULL) 

Quit (5,"Syntax MOVE: Move drive:file [TO] drive: [file]\n"); 

strcpy(FileRNaam,argv[ 1 ] ) ; 

i=j=NULL; 

while(i<30 & & FileRNaam[i++]!=':'); 
if (i<30) 

for(j=i;j<30;j++) 

FileRNaam[j-i]=FileRNaam[j]; 

if ( ! (Filel = fopen (argv [.11 , "r" ) ) ) 

Quit(5,"File is niet aanwezig!\n"); 

if (strcmp ("TO", argv[2J). ! =NULL && strcmp ("to", argv[:2] ) !=NULL) 
strcpy(FileWNaam,argv[2]); 
else 

strcpy(FileWNaam,argv[3])? 
i=j=NULL; 

while(i<30 && FileWNaam[i++]!=':'); 
if (i>30) 

Quit (5,"De bestemming dient van een DRIVËNAAM te worden, 
voorzien\n"); 

if(FileWNaam[i]<32 || FileWNaam[i]>123) 

for(j=0;j<(30-i);j++) 

FileWNaam [it j ] =FileRNaarn[ j ] ; 

File2=fopen(FileWNaam,"w"); 

ch=getc (Filel); 
do { 

putc(ch,File2); 
ch=getc (Filel); 
jwhile(ch!=END && ch!=EOF); 

fclose (Filel); 
fclose(File2); 

if ( (DeleteFile(argv[1]) )==NULL) 

{ 

DeleteFile(FileWNaam); 

Quit (5,"Het originele bestand is niet te 
verwijderen!\n"); 

I 

I 
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Listing bij Fractals 

linclude "math.h" 

while (Length<3.00 && Iteration < 33) 

linclude "stdio.h" 

{ 

finclude "functions.h" 

A=ZR* ZR; 

#include "exec/types.h" 

B=ZI* ZI; 

linclude “graphics/gfx.h" 

tength=sqrt(A+B); 

tinclude “graphics/gfxmacros.h" 

ZI=2*ZR*ZI+CI; 

#inciude "intuition/intuition.h" 

ZR=A-B+CR; 


Iteration++; 

struct Screen ‘Screen; 

} 

struct IntuitionBase ‘IntuitionBase; 

Teken (x,y,Iteration); 

struct GfxBase *GfxBase; 

3 

struct NewScreen NewScreen = { 

1 

0, 0,320,256, 5, 

while ((*MouseL & 0x40)==0x40); 

0x00,0x01,NULL, 


CUSÏOMSCREEN,NULL, 

CloseScreen(Screen) ; 

(UBYTE *)"Fractals", 

CloseLibrary (GfxBase); 

NULL,NULL }; 

CloseLibrary(IntuitionBase); 

UWORD Colors[] = 

Teken (xx,yy,kleur) 

£ 

int xx,yy,kleur; 

0x0008,0x0060, 0x0ff0,0x0fd0, 0x0fbO, 

f 

0x0f 90,0x0 f90,0x0 f7 0, 

SetAPen(&Screen->RastPort, kleur) ; 

0x0f 7 0,0x0 f70,0x0f40,0x0f20,OxOfOO, 

BNDRYOFF(&Screen->RastPort) ; 

0x0f 01, 0x0f 03, 0x0f 05, 

RectFill (&Screen->RastPort, 

OkOf06,0x0f07,0x0f08,0x0f09, 0x0fOa, 

(xx + 30-(xres/2)), (yy+15-(yres/2)), 

OxOfOb, OxOf'Od, OxOfOf, 

(xx+30+ (xres/2)), (yy+15+(yres/2))); 

OxOdOf;OxObOf, 0x090f,0x07Of, 0x050f, 

} 

0x000f ,OxOOOd, 0x000a, 

OpenAll() 

}.; 

int xres,yres; 

if(!(IntuitionBase=(struct IntuitionBase 

char *MouseL = (char *)0xbfe001; 

*)OpenLibrary("intuition.library",01))) 

main () 

\ 

printf("Geen intuit ion.library\n"); 

{ 

exit (5) ; 

DOUBLÉ 

i 

AngleR,Anglel,Side,DistanceX,DistanceY; 

if(! (GfxBase= (struct GfxBase 

DOUBLÉ CR, Cl,A,B,ZI,ZR; 

*)OpenLibrary("graphics „library",0L)) ) 

DOUBLÉ Length; 

{ 

register int x,y,Iteration; 

printf("Geen graphics.library\n"); 


CloseLibrary (IntuitionBase) ; 

AngleR=-.70; 

exit (5) ; 

Anglel=-1.25; 

) 

Side=.80; 

if (! (Screen= (struct Screen *) 

xres=yres=l; 

OpenScreen(SNewScreen))) 

printf (" \nWaarde voor AngleR, Anglel, Side, 

{ 

xres, yres : "); 

printf ("Scherm wil niet!\n"); 

scahf ("%f%f%f%d%d”,SAngleR,SAnglel, 

CloseLibrary(GfxBase); 

SSide,Sxres,Syres); 

CloseLibrary(IntuitionBase); 


exit (5) ; 

OpenAll(); 

1 

LoadRGB4(&Screen->ViewPort,Colors, 32) ; 

) 

RemakeDisplay(); 


DrColBrdr (); 

DrColBrdr() 

1 

CR=CI=ZR=ZI=A=B=Length=0 .00; 

register int i; 

DistanceX=Side/2 00.0; 

BNDROFF(&Screen->RastPort); 

DistanceY=Side/200.0; 

for(i=0;i<33;i++) 

f 

for (y=0;y<=200;y+=yres) 

SetAPen(&Screen->RastPort, i) ; 

{ 

RectFill.(&Screen->RastPort, 250, 

for (x=0;x<=2 00;x+=xres) 

30+ (i*5), 2 60,35+ (i*5)); 

} 

l 

CR=(DOUBLÉ)x*DistanceX+AngleR; 

} 

Cl-(DOUBLÉ)y*DistanceY+AngleI; 


ZR=CR; 


ZI=CI; 


lteration=0 ; 


Length=0.00; 
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he, waarom nu pas. Oke beter laat dan 
NOOIT nietwaar! 

Move in DOS 

Weer eens een 'nieuw’ DOS commando. 
Overkomt het u niet vaak dat u een file 
van de RAM disk copieert naar drive dfO: 
waarna u dan de file van de RAM disk 
moet wissen? Hiervoor hebben we een 
oplossing gevonden. We introduceren 
hier een ’nieuw’ DOS commando die de 
file copieert naar een opgegeven bestem¬ 
ming en vervolgens de originele file wist. 
Het commando heet Move. Hoe luidt de 
syntax van Move? 

MOVE- drive:filenaam ,|TO] 
drive:[filenaam] 

Zoals u ziet mag u het keyword TO ge¬ 
bruiken, het is echter niet noodzakelijk. 
Ook de bestemmingsfilenaam kunt u ach¬ 
terwege laten. Deze wordt dan overgeno¬ 
men van de eerste vermelding. De 
bestemmingsdrive is wel noodzakelijk. 
Move ondersteund nog geen wildcards 
dus verwonder u zelf er niet over als de 
melding 'File is niet aanwezig’ ver¬ 
schijnt. Typ de nevenstaande listing in. 
Compile het met de optie +L en link het 
met de library ’c32.1ib’. 


Fractals 

We hebben bijna een traditie van grafi¬ 
sche grapjes opgebouwd. In elke afleve- 
J ring introduceren we er wel één. Deze 
keer zijn het er zelfs twee geworden. Zo 
kunt u bovenaan in deze aflevering een 
schermcruncher vinden, en hier een bee¬ 
tje uit de hand gelopene. Het programma 
tekent hele simpele fractal figuren. Niet 
driedimensionaal, wel mooie kleuren. Er 
valt eigenlijk niet veel van te zeggen. Een 
kleine opmerking nog wel. Bij het invul¬ 
len van de getallen moet u erop letten dat 
de getallen gescheiden worden door spa¬ 
ties. Als voorbeeld geven we “-2 -1.25 2.5 
1 1". Vul dit zo in, onthoud u mag geen 
komma’s e.d gebruiken, gewoon tussen 
elk getal een spatie. Dit voorbeeld zal dan 
een fractal in z’n meest algemene vorm 
afbeelden. 

Rectificaties 

We blijven ons er voor schamen. Toch 
kunnen wij er ook niet veel aan doen. 
Fouten in programma’s. De eerste zat in 
het listinkje behorende bij Rnd in C uit de 
CJnfo nr 6, blz. 72. De subroutine hoort 
te luiden; 

float rnd(x) 
int x; 


{ 

OBYTE *Seed= (UBYTE *)0xbfd800; 
return ( ( (float)*Seed/255.0)); 


Het volgende foutje troffen we aan in de 
listing van het programma ’loadilbm.c’, 
C_Info nr.6, blz. 81. De opties waren niet 
helemaal correct. Ze horen te luiden: 

cc loadilbm.c +L 
ln loadilbm.o -lc32 

Tot slot 

Zo. tot zover weer ons verhaal. Kost iede¬ 
re keer meer moeite om de tips en trucs 
bij elkaar te krijgen. Kom op mensen, we 
hebben ze echt nodig! Zonder uw mede¬ 
werking weten we niet wat u interesseert 
en kunnen we ook moeilijk wat in elkaar 
knutselen. Dus, massaal reageren. Heeft u 
vragen, opmerkingen, tips en trucs, alles 
is welkom!!!! 

Dan voor nu welterusten en morgen vroeg 
weer op. Pggfoooeoaaw, nee dus! (niet 
vroeg graag, 't is weekend morgen, bij 
ons dan tenminste) 

Johan &johan 



SETTLE LIGHT SOFTS 

DAMMEN 

Eindelijk een tegenstander op niveau! 

★ Nederlandse handleiding met regels en taktische tips 

★ demonstratie-partijen 

★ invoeren van zetten met toetsen, cursor of joystick 

★ terugnemen van vorige zet 

★ zelf opzetten van standen 

★ computer speelt zwart of wit 

★ spiegelen van bestaande stand 


In de betere computershop voor 

f [ 45,” (diskette, incl BTW) 


Te bestellen bij: 

SALASAN 


Kwaliteits-software voor Commodore 


Postbus 5570, 1007 AN Amsterdam, Giro 5641219 
Tel. 020-203219 
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Turboboards voorde 

Amiga 

Veel snelheid voor veel geld 



I n PC-snelheidstermen gezien is 
de Motorola 68000 CPU wat be¬ 
jaard aan het worden. Bij de Com¬ 
modore Amiga-lijn draait deze 
16/32-bits microprocessor op 7.14 
MHz en dat is zelfs voor een AT een 
beetje aan de trage kant. Tegen¬ 
woordig heeft de doorsnee busi- 
ness-class IBM PC compatibele PC 
en kloksnelheid van 12 tot 16 MHz 
of meer. Bezitters van de Amiga 
2000 (en bij enkele boards ook de 
Amiga 500) kunnen deze Com- 
modore-telg eenvoudig opvoe¬ 
ren. Een turbokaart met Motorola 
MC 68020 en de floating-point co- 
processor MC 68881 in een uitbrei- 
dingsslot steken en de Amiga 
scheurt op 14 MHz verder. Wie nog 
meer wil kan zelfs een MC 68030- 
kaart op 25 MHz laten razen. 

Snelheid lijkt soms wel het grootste goed 
in computerland. Hoe sneller hoe beter en 
des te meer de bezitter kickt op zijn/haar 
machine. Nu is snelheid altijd een inge¬ 
wikkeld samenstelsel van verschillende 
componenten. Van invloed zijn o.a. de 
kloksnelheid van de CPU, de ontlastende 
hulp die de coprocessoren bieden, de bus 
(16 of 32 bits), de snelheid van de drives 
en of de machine onder multi-tasking 
draait. Wat de snelheid van de Motorola 
microprocessoren betreft zijn er twee mo¬ 
gelijkheden voor meer snelheid: 1.). 
Koop een nieuwe Amiga 2500 of 3000 en 
2). Zet een turboboard in de bestaande 
Amiga 2000 of 500. Deze laatste optie 
kost een lieve duit, maar blijft natuurlijk 
wel aanmerkelijk goedkoper dan een dure 
2500- of 3000-machine te kopen. Wij be¬ 
keken een aantal van de Amiga MC 
68020- en MC 68030-turboboards voor u. 


De hamvraag bij het opvoeren van de 
snelheid blijft altijd: “Is het nu allemaal 
wel echt nodig?”. Het antwoord op deze 
vraag kan per gebruiker flink verschillen. 
Om het eerlijk te zeggen, de hobbyist die 
niet met ingewikkelde grafische of ani- 
matiepakketten werkt, geen grootschalige 
desktoppublishing bedrijft of veel gecom¬ 
pliceerd rekenwerk verricht heeft meer 
dan voldoende aan de standaard MC 
68000. De Amiga 2000 en 500 zijn nog 
altijd niet echt verouderd en kunnen bij 
vele hobbyisten en gewoon kantoorge 
bruik goed meckomen 
Anders wordt het als er professionele 
RES graphics, hoge school-animaties, 
ray-tracing, desktoppublishing van for¬ 
maat, CAD/CAM, krachtige multi-tas¬ 
king en het doorrekenen van grote spre¬ 
adsheets of het bewerken van omvangrij¬ 
ke databases op het verlanglijstje staan. 
Dan kan die oude 7.14 MHz Motorola 
68000 CPU te kort schieten. Een turbo- of 
accelerator-board kan de machine aan de 


gestelde hogere snelheideisen aanpassen. 
Dat kan op drie manieren: 

• De 7.14 MHz MC 68000 vervangen 
door een 14 MHz MC 68020 of een 
25 MHz CPU 

• Het inschakelen van een floating- 
point coprocessor, de MC 68881 of 
MC 68882 

• Het verbeteren van de systeemhard- 
ware. Hieronder Vallen zaken zoals 
het gebruik van snellere (Static) 
RAM-chips, cache- RAMS, het ge¬ 
bruik van een 32-bits in plaats van 
een 16-bits bus en de toepassing van 
een supersnelle harddisk met control¬ 
ler 

De meeste turboboards gaan uit van de 
combinatie snellere CPU met floating- 
point coprocessor. Een aantal accellera- 
tor-boards past daarnaast ook supersnelle 
RAM- en cache-technieken toe. 
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Werking van een turboboard 

Bij dc installatie van een accelerator- 
board in een uitbreidings slot of via een 
uitbrcidingsbus neemt de snellere MC 
68020 of 68030 de taken van de oude MC 
68000 over. In het ene geval dient men 
daartoe de oude CPU te verwijderen. Bij 
een andere turbokaart kunt u de MC 
68000 gewoon laten zitten. De versndler- 
kaart zet de MC 68000 gewoon op non- 
actief. 

Dat klinkt allemaal gemakkelijker dan het 
in de praktijk is. Het vervangen van een 
CPU bij een IBM compatibele PC leidt al 
gauw tot herziening van het complete 
hoofdkaartontwerp. Gelukkig werd bij de 
Amiga 2000- en Amiga 500-architectuur 
al rekening gehouden met toekomstige 
uitbreidingen en opvoering. Dat betekent 
echter niet dat een simpel “chipje-verwis- 
selen" voldoende is om uw Amiga door 
de geluidsbarrière te laten breken. Extra 
ondersteunende hardware en in vele ge¬ 
vallen ook software (tegenwoordig zit er 
vaak al een extra diskette voor de MC 
68020- en/of MC 68881- Amigaversie in 
de doos) zijn onmisbaar voor een goede 
werking van het systeem. 

Neem nu eens de MC 68020 CPU. Deze 
op 14,3 MHz geklokte Motorola micro¬ 
processor heeft een twee maal z.o hoge 
kloksnelheid als de 7.14 MHz. MC 68000. 
Daar blijft het echter niet bij, want dit re¬ 
kenwondertje heeft ook nog eens een 256 
byte instruction-cache voor complete “in¬ 
chip” programmaloops, 32-bits verme- 
nigvuldigings- en deel-operaties, een 32- 
bits RAM-bus en communicatiepoorten 
voor coprocessoren aan boord. Dat bete¬ 
kent dat deze MC 68020 CPU veel kan 
mits de microprocessor de juiste onder¬ 
steuning van coprocessoren krijgt. Geijk¬ 
te uitbreidingen op een turbokaart zijn 
dan ook een MC 68881 floating-point- en 
/Wemory Management Cnit-coprocesso- 
ren. 

De floating-point coprocessor is in feite 
niets anders dan een supersnelle simpele 
rekenaar. De drijvende-komma-copro- 
cessor kan in pijplijnvorm een groot aan¬ 
tal identieke rekenstapjes bliksemsnel en 
zeer efficiënt uitvoeren. Dergelijke een¬ 
voudige rekentaken zijn eigenlijk te min 
voor de Centrale Processing Unit. maar 
kosten wel veel processortijd. Door de 
CPU middels een floating-point mathe¬ 
matische coprocessor te ontlasten houdt 
deze chip meer tijd over voor andere soft- 
waretaken en neemt de systeemsnelheid 
navenant toe. Met name CAD-software. 
spreadsheets, 3D-graphics-pakketten, 
animatieprogramma's en andere mathe¬ 
matische software maken gebruik van 
deze coprocessoren. Bij tekstverwerking 
en spelletjes hebben zij geen enkele zin. 
De MMU wordt gebruikt om routines in 
het snelle RAM te zetten. Bijvoorbeeld de 


Kickstart-routines uit het relatief trage 
ROM naar het fast Static RAM te ver¬ 
plaatsen. 

Dc von Neumann-bottleneck is ook bij de 
turbokaarten een duur probleem. Een 
1 CPU blijkt veelal sneller te rekenen dan 
het RAM de data kan aanleveren en weer I 
opnemen. Dat impliceert wachttijden van 
de CPU op de RAM-datastromen en ver- 
pilling van systeemkracht. Aan die flesse- 
hals van von Neumann valt het volgende 
te doen: 

• Het gebruik van Static RAM-banken 
die sneller zijn dan het conventionele 
Dynamic RAM. De ververstijden (re- 
fresh rates) van SRAM liggen ver be¬ 
neden de 100 nanoseconde, terwijl 
die van het DRAM er meestal flink 
boven liggen. De CPU kan dus per 
tijdseenheid het SRAM vaker aan¬ 
spreken dan het DRAM 

• De toepassing van een real 32-bits 
RAM-bus. Dit bredere datapad maakt 
het kontakt met het on board RAM 
twee maal zo snel als over een con¬ 
ventionele 16-bits bus 

• Het gebruik van een cache-RAM. De 
MC 68020 en MC 68030 hebben al 
een groot cache-RAM aan boord zo¬ 
dat grote veel gebruikte programma- 
routines onder handbereik van de 
CPU blijven. Tijdrovend laden uit het 
conventionele RAM of van de hard¬ 
disk/diskdrive is dan niet meer nodig 

Al die hardwareuitbreiding stellen hoge 
eisen aan de compatibiliteit met de sys- 
teemhardware en Amiga-software. Ge¬ 
lukkig blijkt het dankzij de goede door 
Commodore vrijgegeven Amiga sys- 
teemdocumentatie allemaal best mee te 
vallen. Bovendien blijft bij de meeste tur- 
boboards de oude MC 68000 gewoon zit¬ 
ten en kunt u in geval van nood weer op 
deze originele CPU terugvallen! 


De snelheidswinst 

Of u door installatie van een turboboard 
ook inderdaad verbluffende snelheids- 
prestaties krijgt hangt sterk van de draai¬ 
ende software en de ondersteunende 
hardware af. In theorie moet een MC 
68020 met MC 68881-combimatie met 
gemak een factor 4 sneller halen. Bij een 
MC 68030 en MC 68882 ligt zelfs een 
factor 12 in het verschiet. 

Veel blijft echter afhankelijk van het feit 
of de programmaroutines op de geboden 
faciliteiten aansluiten. Alleen die pakket¬ 
ten die daadwerkelijk voor een mathema¬ 
tische coprocessor en MC 680X0 CPU’s 
geschreven zijn trekken daar ook opti¬ 
maal profijt van. 

Een supersnel rekenteam met trage hard- 
ware-ondersteuning blijft altijd een reus 
op krukken. Alleen in combinatie met een 
snelle harddisk plus bijbehorende con- 
trollerkaart en 32-bits 70 ns (of sneller) 
SRAM-SIMMs valt alles uit de reken¬ 
kracht te halen wat er in zit. En dat maakt 
deze kaarten nu juist zo prijzig. Snelle 
harddisks en 32-bits SRAM is allerminst 
goedkoop. De prestaties zijn er echter wel 
naar en het zal zonde zijn u toch al dure 
turbokaart er niet mee uit te rusten. 

De MC 68020-turboboards 

Commodore levert zelf de A 2620- uit¬ 
breidingskaart met 14,3 MHz MC 68020 
en MC 68881 aan boord. De kloksnelheid 
van de mathematische coprocessor kan 
door keuze van het kwartskristal van 14,3 
tot 25 MHz gevarieerd worden. 

De taken van het geheugenmanagement 
berusten bij de MC 68851 MMU. Voor 
het draaien onder het UNIX multitakipg- 
OS is deze MMU heel geschikt en zit dan 
ook standaard in de Amiga 2500 voor 
UNIX- gebruik. 

De A 2620 wordt standaard met 2 MB aan 
boord geleverd. Op de kaart die wij onder 
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ogen kregen zaten 100 ns 32-bits RAM- 
chips. Beter zou zijn hier 80 ns SRAM- 
chips op te zetten. Dat kost natuurlijk 
weer extra. Uitbreiding tot 4 MB is moge¬ 
lijk, maar vereist wel enige vaardigheid 
met technisch solderen. Installatie door 
de vakman verdient hierbij aanbeveling. 
De inbouw van de kaart in de Amiga 2000 
verschilt voor de modellen A (oude MC 
68000 verwijderen) en B. Helaas was de 
meegeleverde duitse (de engelse is beter) 
gebruiksaanwijzing niet al te sterk en ook 
hier raden we u ook weer aan de turbo- 
kaart door een vakman/vrouw in de Ami¬ 
ga te laten zetten. Dat voorkomt veel ge- 
kluns en een mogelijke beschadiging van 
de electronica. 

De snelheidsprestaties van de Commodo¬ 
re Amiga A 2620 turbokaart zijn zonder¬ 
meer goed te noemen. Gemiddeld twee 
tot drie maal sneller als de MC 6800-uit- 
voering van de Amiga 2000. Makkelijk is 
de autoconfiguratie van het RAM dat ge¬ 
heel automatisch verloopt. Een tweede 
pluspunt is de accessmogelijkheid voor 
DMA-devices. Met name in combinatie 
met Direct Memory Access harddiskcon- 
troilers kunnen de systeemprestaties van 
de harde schijf flink toenemen. Kortom 
een goede turbokaartkeuze. De prijs ligt 
afhankelijk van de leverancier en uitrus¬ 
ting voor de standaardversie iets boven de 
ƒ4.000,-. 

De Hurricane is inmiddels een begrip in 
de Amiga-wereld geworden. Dit “wervel¬ 
storm” turboboard is de snelste van de 
hier besproken MC 68020-accelerator- 
kaarten. De kaart zelf bevat naast de 
14,32 MHz MC 68020 en 16 MHz MC 
68881 nog wat extra video-electronica en 
ruimte voor 2-16 MB aan on board RAM- 
geheugen. De oude MC 68000 CPU kan 


De systeen 

bij de nieuwere Hurricane-versies rustig 
op zijn socket blijven zitten. U kunt nu 
gewoon tussen beide microprocessoren 
heen-en-weer schakelen. 

Zoals reeds werd opgemerkt is de Hurri¬ 
cane een waar snelheidsmonster. De kaart 
is op enkele punten iets sneller dan de 
Commodore A 2620 en de mathemati¬ 
sche MC 68881 kan tot 25 MHz opge¬ 
voerd worden. Er zijn zero wait States. 
Ook is het mogelijk om een MC 68882 op 
de wervelstorm te monteren. 

Lastig is dat al het extra fast RAM niet 
autoconfigurerend is. Dat betekent dat u 
de configuratieroutine op een of andere 
wijze aan de startup-sequentie zult moe¬ 
ten koppelen. Dat is bij de ene startup wat 
moeilijker dan bij de andere. 

De Ronin Hurricane H2000 is alleen ge¬ 
schikt voor de Amiga 2000. Het turbo¬ 
board plus geheugen-dochterkaart pakt 
nogal dik uit hetgeen problemen kan ge¬ 
ven bij de installatie van een hardcard. 
Via een piggyback board kan de MC 
68020 door een MC 68030 CPU vervan¬ 
gen worden. Verder een prima kaart voor 
rond de ƒ 4.000,-. 

De Animate Turboboards zijn er voor de 
Amiga 2000, Amiga 1000 en Amiga 500. 
Voor de Amiga 500 en 1000 heeft u de 
Animate Turboboards I of II nodig. Beide 
turbokaarten beschikken over een 14,3 
MHz 68020 CPU en een 14/16 MHz MC 
68881 drijvende-komma mathematische 
coprocessor. Desgewenst kan men een 
MC 68882 inbouwen. 

Allen het type II beschikt over een om- 
schakelaar voor de MC 68000-modus. 
Via een kabeltje met schakelaar kunt u 
het in een socket gestoken board van bui¬ 
ten af omschakelen. Bij type I is het bij 
weigerende programmatuur niet mogelijk 


letheid hangt van vete factoren af 

om op de MC 68000- modus over te scha¬ 
kelen! 

In de praktijk blijken de Animate type I- 
en type Il-turboboards qua snelheid wat 
bij de andere genoemde accelerators ach¬ 
ter te blijven. Ondanks het efficiënte ge¬ 
bruik van het on board MC 68020-cache 
breekt de afwezigheid van 32-bits SRAM 
de versnellerkaart op. In de praktijk loopt 
de Amiga circa twee maal sneller dan de 
conventionele MC 68000-uitvoering. 
Daar tegenover staat wel de lage prijs, ƒ 

I. 100,- voor type I en ƒ 1.320,- voor type 

II. 

Het Animate turboboard type III is de 
professionele Amiga 2000- uitvoering. 
De kaart wordt in een vrij slot gestoken en 
beschikt wel over 32-bits fast RAM. Naar 
keuze kan de gebruiker de mathematische 
coprocessor tot 33 MHz (MC 68881 en 
MC 68882) opvoeren. Via de perifere 32- 
bits adapter is uitbreiding in de vorm van 
een extra geheugenkaart of multifunc- 
tionkaart. Op de kaart zelf kunt u het 
SRAM van 128 KB tot 512 KB (wel een 
beperking) uitbreiden. 

De type III kaart kost rond de ƒ 3500,- en 
bleek in de praktijk iets langzamer dan de 
Hurricane en A 2620. Het installeren 
bleek bij alle drie de typen relatief een¬ 
voudig. 

Tot slot nog de amerikaanse CSA CPU- 
kaarten. Er zijn twee typen: de FasTrack 
2000 met FastPac en met Dragstrip. Bei¬ 
de kaarten beschikken over een 14,3 MHz 
MC 68020 CPU en naar keuze een MC 
68881/68882 floatinng-point coproces¬ 
sor. Via een piggyback board kan de MC 
68020 door een MC 68030 vervangen 
worden. 

Het verschil tussen de beide kaartmodel- 
len zit hem in de 32-bits RAM-uitbrei- 
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dingskaarten. De peperdure FasTrack met 
FastPac biedt een 32-bits 2 MB SRAM 
board. De FasTrack Dragstrip biedt de 
keuze uit de toepassing van 16-bit DRAM 
en 32-bits SRAM. U heeft hier de totaal¬ 
prijs in eigen hand. 

De FasTrack wordt in het dichtst bij de 
MC 68000 CPU gelegen uitbreidingsslot 
van de Amiga 2000 gestoken. Volledig 
uitgerust, maxzimaal 16 MB, ontstaat wel 
een erg dikke stapel van uitbreidingskaar¬ 
ten. 

De CSA FasTrack met FastPac voldeed 
goed, hoewel de kaart zo'n 20% trager 
bleek dan de Hurricane of A 2620. De Fa¬ 
sTrack met Dragstrip vonden we te traag 
en te duur.De prijs voor de FasTrack-mo- 
dellen varieert van ƒ 5.000,- tot ƒ 8.000,-. 

GVP 68030 turbokaart 

Onder de naam Impact A2000-030 levert 
Great Valley Products sinds kort een MC 
68030 turbokaart voor de Amiga 2000. 
Inderdaad kan hier van een ware “im¬ 
pact” gesproken worden, want deze acce- 
lerator kaart ramt met een factor 10-12 


versnelling alle andere turbokaarten er 
uit. Dat mag gezien het prijskaartje ook 
wel. De complete set met 16-33 MHz MC 
68030, 25-33 MHz MC 68882, 4 MB aan 
32-bits SRAM en DMA harddiskcontrol- 
ler kost, afhankelijk van de kloksnelheid 
en het type (70, 8Ö of 100 ns) RAM, tus¬ 
sen de ƒ 7.000,- en ƒ 8.000,-. 

De Impact A2000-030 is een echt tech¬ 
nisch wondertje met alles er op en er aan. 
Standaard 4 MB aan autoconfigurerend 
SRAM met dochterkaart-uitbreiding, een 
UNIX compatibele MMU, asynchrone ti¬ 
ming met een variabele klokfrequentie 
(ondervangt hard- en softwareproblemen 
t.g.v. een te hoge kloksnelheid), 4 Mega- 
Bytes/sDMA harddisk-controller voor 
AT-type harddisks, 0 wait States MC 
68030 burst-modus bij 25 MHz en een 
omschakelaar voor de MC 68030- 
MC68000-modus aan boord leveren een 
complete high- power Amiga binnen een 
bestaande Amiga 2000 af. Het meegele¬ 
verde SET CPU-programma verzorgt de 
optimale afstemming van de Centrale 
Processing Unit. 


In de praktijk is de Impact A2000-030 
turbokaart circa drie maal zo snel als zijn 
68020-collega’s en 10 tot 12 maal zo snel 
als de origele MC 68000 Amiga. Deze 
prestaties zijn uiteraard sterk applicatie- 
en hardware-afhankelijk. Een nederland- 
se importeur is ons nog niet bekend. In 
Duitsland wordt de Impact o.a. geleverd 
door DTM, Poststrasse 25, 6200 Wiesba- 
den-Bierstadt. 

Dankzij de vooruitziende blik van de ont¬ 
werpers kan de Amiga 2000 nog jaren 
mee. Een turbokaart er in en de Amiga 
2000 komt tot ongekende grafische, 
CAD/CAM-, animatie-, ray-tracing-, 
spreadsheet-, dtp- en databaseprestaties. 
Ook krachtige multitasking en UNIX be¬ 
horen tot de mogelijkheden. Goedkoop is 
het allemaal niet. De turbohardware zelf, 
het extra SRAM en een snelle harde schijf 
kosten flink geld en de investering dient 
qua softwaregebruik natuurlijk te lonen. 
In afwachting van een goedkopere Amiga 
3000 of 2500 het beste alternatief. 

U.S. 


De MC 680X0-familie 


A l heel wat Motorola 680X0-telgen hebben het 
digitale levenslicht aanschouwd. Het originele 
ontwerp werd de laatste jaren sterk verbeterd en 
biedt nu alles wat voor een moderne PC noodza¬ 
kelijk is. Hieronder een beknopt overzicht van de 
verschillende specificaties: 

De MC 68000 

• Klokfrequentie; voor Amiga 7,14 MHz 
• Bus-breedte: 1 6-bits systeembus, 32-bits RAM-bus 

• Direct Addressing Range; 16 MB 
• Instruction types: 56 
• Operations on 5 main datatypes 
• Memory Mapped I/O 
• Adressing modes: 14 
• Data- en addresregisters: 17 

De MC 68020 

• Klokfrequentie; voor Amiga 14,3/16,67 MHz 

• Bus-breedte: 32-bits Non-Multiplexed systeembus, 32- 
bits RAM-bus 

• Dynamic bus-sizing: 8-, 16- en 32-bits 


• Direct Addressing Range: 4 Gigabyte 

• Operations on 7 main datatypes 

• Memory Mapped I/O 

• Addressing modes: 18 

• Data-en addresregisters: 16 voor 32-bits 

• On-chip cache 

• Coprocessor-interfaces; MC 68851 MMU, floating- 
point MC 68881 en MC 68882 

• Pijplijn-architectuur met interne parallel processing 

• HCMOS-ontwerp 

De MC 68030 

• Klokfrequentie: voor Amiga 16, 25 of 33 MHz 

• Bus-breedte: 32-bits Non-Multiplexed systeembus, 32- 
bits RAM-bus 

• Dynamic bus-sizing: 8-, 16- en 32-bits 

• Direct Addressing Range: 4 Gigabyte 

• Operations on 7 main datatypes 

• On-chip Paged MMU 

• Addressing modes: 18 

• Data- en addresregisters: 16 voor 32-bits 
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Aansluiting sandwich platine 


De A 2286 AT-kaart 

Een AT in de Amiga 2000 


H et beste van twee werelden 
verenigd in één Amiga 2000. 
Aan de ene kant alle MC 680X0- 
kracht en aan de andere kant de 
complete MS-DOS-wereld van de 
IBM compatibele AT. Op het eer¬ 
ste gezicht een utopie. Bij nader 
inzien echter een realiteit met zo 
zijn beperkingen en kosten. In 
deze vergelijkende test van Com¬ 
modore Info leest u of het werken 
met een tweekoppige Amiga 
loont 


MS-DOS heeft het ondanks het oprukken 
van UNIX en OS/2 nog altijd voor het 
zeggen in de zakelijke PC-wereld. IBM 
PC compatibele AT’s (Intel 80286) en 
803 86/486-kl onen staan in vrijwel elk 
modern kantoor. De op de Motorola MC 
680X0 CPU gebaseerde PC’s vormen 
een goede tweede bij de serieuze hobbyist 
en meer grafisch of video-georiënteerde 
zakelijke gebruiker. Voor beide systemen 
valt veel te zeggen. De IBM compatibele 
PC geeft toegang tot een schat aan rede¬ 
lijk geprijsde soft- en hardware. Bij de 
Amiga-lijn krijgt de gebruiker voor rela¬ 
tief weinig geld het summum aan PC gra¬ 
fische, animatie- en geluidsmogelijkhe¬ 
den in huis. Voor wie niet kunnen beslis¬ 
sen ligt de oplossing wellicht in de A 


2286 AT-kaart die MS-DOS en Amiga- 
kracht in één machine verenigt. 

De Amiga is al enkele jaren in staat MS- 
DOS programmatuur te draaien en ook 
IBM PC compatibele hardware te gebrui¬ 
ken. Als de wat teleurstellend verlopen 
pogingen met software-emulatie (Trans- 
former) en de Sidecar voor de Amiga 
1000 vergeten is het de Commodore A 
2088 XT bridge-board (ook wel Janus- 
kaart genoemd) toch redelijk goed ver¬ 
gaan. Deze op de Intel 8088 (4,77 MHz 
en 8- bits systeembus) gebaseerde XT- 
brugkaart maakt het draaien van alle PC 
XT compatibele software en het aankop¬ 
pelen van de overeenkomstige PC-hard- 
ware mogelijk. Dit alles tegen een alle- 
zins gunstige prijs. Zeker als men in aan¬ 
merking neemt dat uitbreiding met IBM 
PC harddisks en dergelijke goedkoper is 
dan bij de originele Amiga-hardware. 
Jammer is dat Commodore met de A 
2088 een beetje achter de feiten aanliep. 
Ten tijde van de introductie werkte welis¬ 
waar het gros van de PC-hobbyisten en de 
kleinere kantoorgebruikers nog met de 
PC XT. Nauwelijks een jaartje later was 
het allemaal al 10-16 MHz op de 16/32- 
bits bus AT wat de klok sloeg. Bovendien 
is een 4.77 MHz XT met 8-bits systeem¬ 
bus een slak in vergelijking met de 7,14 
MHz Motorola MC 68000 met 16-bits 
bus. Een enkele leverancier ontdekte al 
een gat in de markt door een turbo-versie 


van de A 2088 XT-kaart te leveren. Bij¬ 
voorbeeld X-Pert Computer Service ld- 
stein Duitsland vervangt de Intel 8088 
voor de bekende NEC V20 8 MHz CPU 
en voor rond de 1.100 piek heeft u een XT 
die 80-100% sneller is dan het A 2088- 
origineel. 

Toch maak je met een V20 nog geen AT 
van de Amiga. Daar is een compleet Ami¬ 
ga 2000-compatibele moederkaart voor 
nodig. 

Waarom een AT? 

De A 2286 is met een prijskaartje van 
rond de ƒ 2.500,- (inclusief 1,2 MB AT 
diskdrive) niet goedkoop. Doe er nog ƒ 
500,- bij en je hebt een complete monoch¬ 
rome IBM compatibele PC met 40 ms 20 
MB harde schijf. Waarom dan toch in de 
Amiga 2000 investeren? 

In feite gaat het om twee vragen: 

• 1). Is de AT-optie wel echt nodig? 

• 2). Wat verdient de voorkeur, een 
Amiga AT of een losse IBM PC AT- 
kloon? 

Eerst die AT-optie. Een IBM AT compa¬ 
tibele PC heeft een kloksnelheid van 8-25 
MHz (afhankelijk van de CMOS CPU), 
een RAM- bereik van 16 MB, een 16-bits 
databus, en toegang tot zeer grote relatief 
gunstig geprijsde harddisks en veel PC- 
randapparatuur. Wat de besturingssyste- 
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men betreft is er keuze uit MS-DOS 3.X 
t/m 4.X, OS/2 en ook wel UNIX. De ma¬ 
chine is een moderne kantoor-PC met 

software in alle maten en soorten. Data¬ 
bases, spreadsheets, dtp, tekstverwerking, 
CAD/CAM, het loopt allemaal zonder 
mankeren op de AT. Ook zijn er tegen¬ 
woordig vele goede WIMP-shells (Wind¬ 
ows 286, GEM) die net als de Workbench 
voor de Amiga de gebruiksonvriendelijke 
bediening van de PC afschermen. 

Een belangrijk verschil met de Amiga zit 
hem in de grafische, animatie- en muzika¬ 
le mogelijkheden. HIRES kleur op de AT 
is een prijzige zaak. Voor desktopvideo, 
flitsende animaties en full stereo M1DI- 
aansturing zijn eveneens forse investerin¬ 
gen op de AT nodig. De Amiga 2000 is 
dan veel voordeliger. Kortom, het ant¬ 
woord op vraag 1). luidt: Ja, als u een be¬ 
trouwbaar en snel MS-DOS werkpaard 
nodig heeft. 

Het antwoord op vraag 2). hangt sterk van 
de (toekomstige) toepassingen af. Wie het 
beste van beide besturingswerelden en/of 
inbouw van de goedkopere IBM PC-com- 
patibele hardware in de Amiga 2000 wil 
kan het beste in de A 2286 investeren. 
Bovendien is het mogelijk om de grafi¬ 
sche mogelijkheden van de Amiga voor 
MS-DOS software te benutten. 

De A 2286-kaart 

Qua specificaties voldoet de A2286 
bridge-board precies aan de originele 
Advanced Technology, AT, -norm van 
IBM. Het oogt allemaal heel klassiek: 

• Intel 80286 CPU 

• Een kloksnelheid van 8 MHz 


• Een 16-bits systeembus 

• 1014 KB aan vrij RAM op de hoofd¬ 
kaart 

• Een 16 KB ROM-BIOS 

• AT-busconnectoren voor de PC-slots 
van de Amiga 2000 

• Vrij socket voor mathematische Intel 
80287 coprocessor 

• Aansluitingen voor 1.2 MB 5.25 inch 
en 3.5 inch 720 KB diskdrives 

• Ingebouwde batterij gevoede sys¬ 
teemklok 

• Set-upmenu met opslag gegevens in 
CMOS-chip 

• DMA-optie 

Schijn bedriegt echter. Het gaat hier wel 
degelijk om een geavanceerd stukje ont¬ 
werptechniek dat de MS-DOS PC-com- 
ponenten exact afstemt op gebruik in een 
Amiga 2000-omgeving. Er zitten daartoe 
nogal wat custom-chips op de lange AT- 
kaart. 

Het geheel bestaat uit de lange insteek¬ 
kaart voor een AT-slot met dochterkaartje 
voor de AT-functies en 1024 KB aan vrij 
RAM. Op deze electronicakaarten vindt 
u: 

• Een 64 KB Dual-Port-RAM voor 
communicatie tussen het Amiga- en 
PC-deel 

• Emulatie van de IBM parallelle prin- 
terpoort op de Amiga-printerpoort 

• Autoconfiguratie 


• Video in monochroom of kleur, in 
MGA-, CGA- of Amiga- modus 

Het werkt allemaal prima en als enige be¬ 
perking geldt de wat trage 8 MHz snel¬ 
heid van het MS-DOS-deel. De moderne 
AT draait 20-200 % sneller, maar dan 
spreken we ook wel over de iets duurdere 
klasse. 

Installatie 

Het installeren van de A 2286 brugkaart 
is tamelijk eenvoudig. U drukt de bridge- 
board gewoon in één van de twee vrije 
AT- slots van de Amiga 2000 en de hard¬ 
ware is aangesloten. Ér zijn dan nog één 
AT- en twee XT-slots over voor verdere 
PC- hardwareuitbreidingen. De meegele¬ 
verde 5.25 inch 1.2 MB diskdrive past in 
de drivebay onder die voor twee 3.5 inch 
diskettestations. Een standaard PC-lintka- 
bel zorgt voor de datacommunicatie. De 
stroomvoorziening komt via één van de 
nog vrijliggende netstekkertjes. Het aan¬ 
sluiten van twee diskdrives is (voor als¬ 
nog) niet mogelijk. 

De voor de installatie benodigde software 
staat op een standaard 3.5 inch Amiga- 
diskette. Met behulp van het op deze dis- 
kettte staande BRIDGE 1NSTALL dient 
de gebruiker een speciale A 2286 compa¬ 
tibele werkbankversie aan te maken. Met 
behulp van het aldus gemaakte 
AT.BOOT-bestand start de Amiga 2000 
als hybride-PC op. Zowel het Amiga- als 
het IBM PC-deel kunnen dan gelijktijdig 
draaien. Verder zult u via het AT setup- 
programma de datum, tijd, de hoeveel¬ 
heid RAM en de drives moeten instellen. 
Is dat eenmaal gepiept dan heeft u er geen 



RAM Decoder— en raultiplexer-chips 


Schema dochterkaartje met de AT-controller en RAM 
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De PC-kaarten hebben een veel langere historie dan de Amigakaart 


omkijken meer naar. Het AT- en key¬ 
board DIOS-ROM, het Dual-Port RAM 
en de beide besturingssystemen doen de 
rest. 

Het Dual-Port RAM 

Ten einde de communicatie tussen de 
Amiga-DOS- en MS-DOS-wereld te be¬ 
werkstelligen hebben de Amiga-ontwer- 
pers het Dual-Port RAM ontwikkeld. Dit 
128 Kb metende geheugenbereik is een 
extra RAM- bank op de brugkaart. Beide 
computerdelen kunnen naar dit aparte ge¬ 
heugen bereik lezen en schrijven. In feite 
vindt een soort spiegelproces plaats. Da- 
taformats uit de ene besturingswereld 
worden in het Dual-Port RAM naar dat 
van de andere overgeschreven en visa 
versa. 

Na het starten van het programma 
PCDISK komen de commando’s ARE- 
AD en AWRITE ter beschikking. ARE- 
AD.EXE kopieer dataformats uit het 
Amiga-deel in PC compatibele formats. 
AWRITE.EXE kopieert datapartijen van 
het PC- naar het Amiga-deel. De namen 
van de te dupliceren files luisteren heel 
nauwkeurig en jokers (wildcards) zijn bij 
AREAD niet toegestaan. 

De harddisk 

Een AT zonder harddisk is als een auto 
zonder wielen. Vooruit komen doet het 
niet erg. Het gebruik van een harde schijf 
geeft niet alleen meer opslagcapaciteit 
voor data, maar versnelt ook door verbe¬ 
tering van de lees/schrijfen zoektijden de 
systeemprestaties aanzienlijk. 

Voor de aansluiting van de harddisk zijn 
er twee mogelijkheden: 

• Aansluiting van een IBM PC compa¬ 
tibel model op de gecombineerde 
diskdrive- en harddiskcontroller van 
de AT-kaart 

• Het aanleggen van MS-DOS parti- 
tions op een Amiga- harddisk. Via 
het programma AUTOBOOT kun u 
zo’n DOS-harddisk op een Amiga 
harde schijf emuleren. 

De eerste optie is aantrekkelijk omdat 
snelle 40 MB (en meer) harde schijven 
voor de IBM PC AT momenteel spot 
goedkoop zijn. Bovendien kan de PC 
harddisk zowel AMIGA-DOS als MS- 
DOS partitions bevatten zonder dat beide 
werelden dat van elkaar weten. Andersom 
is het via JLINK.COM (onder Janus) 
maximaal vier virtuele MS-DOS drives 
op één Amiga harddisk aan te leggen. 
Daarbij is het niet nodig om gescheiden 
Amiga-DOS en MS- DOS partions op de 
Amiga harddisk aan te leggen. De emula- 
tiesoftware zorgt er voor de vertaling van 
het MS-DOS in het Amiga-DOS format. 


Welke type harddisk u ook neemt dit 
randapparaat vergroot de over-all Amiga- 
prestaties enorm. Lezen/schrijven zoeken 
gaan vele malen sneller dan bij diskdrives 
en grote files kunnen zonder problemen 
worden weggeschreven. Bovendien staan 
de programmatuur met bijbehorende da- 
tafiles en het operating systeem nu op een 
en het zelfde medium. Dat bespaart veel 
tijdrovend schijven-gewissel. 

De praktijk 

Ook in de dagelijkse praktijk rijzen twee 
interessante vragen. De eerste vraag be¬ 
treft de compatibiliteit van de bestaande 
MS- DOS software en hardware met de 
“Amiga AT”. Dat viel reuze mee. Alle 
gangbare toppers zoals Lotus 1-2-3, dBa¬ 
se III, Flight Simulator III, WP 4.X, 
Wordstar en PC Tools liepen als een zon¬ 
netje. De MS Mouse wordt via AMOUSE 
door de Amiga-muis geimmiteerd. Dat 
werkte bij de geteste tekenprogramma’s 
goed. OS/2 hebben we wegens gebrek 
aan voldoende on board RAM van onze 
Amiga 2000 niet kunnen beproeven. 
Uiteraard is het ondoenlijk om alle be¬ 
schikbare PC hardware op de Amiga 
2000 met A 2286 AT-kaart te gaan testen. 
Het werd daarom een at random steek 
proef. Een als Epson geconfigureerde 
Star printer en als HP Laserjet Plus ge¬ 
configureerde laserprinter gaven over de 
parallelle poort geen noemenswaardige 
problemen. Een bekende 28 ms 40 MB 
harddisk ook niet. Bij een 1200/2400 


baud modem onstonden aanvankelijk 
problemen. Enig gepeuter met de dipswit- 
ches en jumpers bracht echter uitkomst. 
De twee interessante vraagt betreft de AT 
snelheidsprestaties van het A 2286 
bridge-board. Zoals de kloksnelheid van 
8 MHz al aangeeft gaat het hierbij niet om 
een waar snelheidsmonster. Ten opzichte 
van de 4,77 MHz XT-kaart kan de A 2286 
2-5 maal sneller zijn. Ten opzichte van 
een 10 of 12 MHz AT blijft de Amiga 
2000 AT 20-40% achter. Dit alles is uiter¬ 
aard sterk afhankelijk van de systeemcon¬ 
figuratie en toegepaste software. 

De Amiga als zich zelf en IBM compati¬ 
bele PC AT biedt “the best from both 
worlds”. Hoewel niet het allerbeste uit de 
MS-DOS AT- wereld. Wie een supersnel¬ 
le AT zonder optimale grafische presta¬ 
ties zoekt is met een PC AT-kloon beter 
af dan met een Amiga-hybride. Voor de 
gebruiker die zowel de Amiga-capacitei- 
ten wil benutten als serieus MS-DOS wil 
gaan draaien biedt de A 2286 bridgeboard 
uitkomst. Dan is de prijs allezins redelijk. 
Voor HIRES kleur-, video-, animatie en 
full stereo-gebruik blijft de Amiga de 
aangewezen machine. 

U.S. 
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68000 Intern (1) 

Cursus programmeren voor de MC68000 processor 



De 68000 microprocessor 


O ok zo’n zin in het schrijven van 
supersnelle routine’s waarvan 
uw vrienden verbaast zullen 
staan? Al was het alleen maar om 
op verjaardagen en dergelijke de 
show te kunnen stelen door te 
kunnen zeggen: "Ik (m/v)? Ik 
oriënteer me de laatste tijd 
voornamelijk op de achtenzestig- 
duizend micro”. We zullen u in een 
aantal korte lessen de kans geven 
te leren programmeren op een 
wel heel populaire microproces¬ 
sor. Een chip die het hart vormt 
van menig computer. Aan deze 
cursus kan iedereen deelnemen, 
alhoewel enige voorkennis van 
machinetaal geen overbodige 
luxe is. 

Menigeen onderons heeft wel eens gepro¬ 
grammeerd in machinetaal op de Com¬ 
modore C-64/128. Diegene die zo gefor¬ 
tuneerd waren dat zij zichzelf een Amiga 
wisten te verschaffen hebben allemaal 
één ding gemeen: ze kochten de machine 
vanwege zijn enorme mogelijkheden. 
Met die enorme mogelijkheden stuitte ze 
meteen ook op één van de grootste pro¬ 
blemen; namelijk dat ze van de machine 
zelf geen barst meer begrepen. En dan te 
bedenken hoeveel plezier je kon beleven 
aan een zelfgeschreven stukje machine- 
taal-programmatuur. Dat plezier is nog 
een stuk groter met een machtige 
microprocessor als de MC68000, daarom 
raden wij iedereen aan vanaf nu mee te 
lezen met onze cursus MC68000. 

Een familieportret 

De Motorola MC68000 is de derde gene¬ 
ratie van de Motorola microprocessors. 
De eerste generatie was de 6800, een 8 
bits machine. De tweede generatie was de 
6809, die zowel 8 als 16 bits karakteristie¬ 
ken had. De huidige MC68000 is ontstaan 
in 1979, en draagt de naam MC68000L4. 
De vier in de type aanduiding geeft de 
maximale aantal klokcycli per seconden 
aan, in miljoenen. Evenals de 


MC68000L6, MC68000L8, 

MC68000L10 en de MC68000L12 heeft 
deze 32-bits interne registers, een 16-bits 
databus, en een 24-bits adresbus. Dan is 
er sinds 1982 de MC68008, met een 8- 
bits databus, en intern 32-bits registers. 
De MC68010 (1982) is een verdere ont¬ 
wikkeling in de reeks van Motorola. De 
MC68010 is geschikt voor systemen met 
een virtueel geheugen. Dat wil zeggen dat 
u gebruik kunt maken van een reeks pro- 
gramma-adressen die totaal verschillend 
kunnen zijn van de beschikbare 
geheugenplaatsen. Zodoende ’ziet' en 
programmeert de programmeur een virtu¬ 
eel geheugen. De MC68020 heeft een 32- 
bits databus en een 32-bits adresbus. 
Hiermee is de MC68020 een complete 
32-bits CPU geworden. Opgemerkt moet 
worden dat de standaard MC68000 intern 
ook echte 32 bits registers heeft. De 
MC68020 is geschikt voor het samenwer¬ 
ken met de MC68881 floating-point co- 
processor. Deze neemt het werk van de 
microprocessor over bij taken die nor¬ 
maal door rekenkundige software worden 
uitgevoerd (en dat kost CPU-tijd). Daar¬ 


bij heeft de MC68020 een ’instruction ca- 
che". een stukje geheugen in de CPU-chip 
waarin van te voren, nog voor ze aan de 
beurt zijn, een aantal instructies worden 
gelezen. Dit verhoogt de verwerkings 
snelheid van de CPU. 

De MC68000 is ontworpen met de be¬ 
hoefte aan een meer op een hogere 
programmeertaal afgestemde CPU. Alt¬ 
hans meer dan die van een assembly pro- 
grogrammeur. Hij maakt ook beter ge¬ 
bruik van statistische informatie over pro¬ 
gramma’s dan vroegere microprocessors. 
Een leuk voorbeeld is het feit dat kleine 
constanten vaker voorkomen dan con¬ 
stanten met een hoge waarde. Daarom 
heeft de MC68000 een aantal speciale 
korte instructie’s voor het werken met 8- 
bit constanten. Hiernaast zijn er ook nog 
speciale instructie’s die het werken met 
procedure’s eenvoudig maken. Een na¬ 
deel van de MC68000 is dat het geen floa¬ 
ting-point instructie’s kent, dus er zijn 
geen floating-point registers. Als we dan 
toch floating-point berekeningen willen 
maken, zullen we een apparte floating- 
point processor aan onze computer moe- 


74 


Commodore Info 7189 



Amiga 


ten toevoegen. U zult later ontdekken dat 
er ook software-matig oplossingen voor 
te vinden zijn. 

De behuizing in de AMIGA 

Omdat de meeste onder ons nog steeds op 
het uiterlijk af gaan, hier eerst een blik op 
de buitenkant van de MC68000. 

De MC68000 is verkrijgbaar in een aantal 
behuizingen, met verschillende vormen 
en materialen. De MC68000 heeft 64 aan¬ 
sluitingen voor de verbinding van de chip 
met de externe bouwstenen. De 
MC68020 (32 bits) heeft meer aansluitin¬ 
gen, en de MC68008 (8 bits databus) 
heeft er minder. De standaard behuizing 
van de MC68000 is de DIP. Dat wil dus 
zeggen 64 pinnen die in twee rijen naast 
elkaar staan. Laten we eens een vluchtige 
blik werpen op de Commodore Amiga. In 
de Amiga vinden we, zoals bekend veron¬ 
dersteld wordt, ook de MC68000. Er is 
een adresbus, en een databus op aanwe¬ 
zig. In de Amiga zijn de besturingslijnen 
van de asynchrone bus verbonden met 
een IC dat de naam ’Gary’ draagt. 'Gary’ 
is een bus control chip, die op zijn beurt 
weer sterk samen werkt met ’Fat Agnus’. 
Deze chips zorgen voor de synchronisatie 
van signalen, en controleren tevens of er 
geschreven mag worden naar de diverse 
geheugengebieden in de Amiga. De dy¬ 
namische ram IC’s in de Amiga moeten 
worden gerefreshed, dit wordt ook door 
’Fat Agnus’ gedaan. ’Fat Agnus’ is niet 
zo Fat als de naam doet vermoeden, 
slechts 20 adreslijnen zijn intern aanwe¬ 
zig. Dit heeft erin geresulteerd dat de 
Amiga maximaal 1M byte ’onboard’ 
heeft. De MC68000 kan door het uitblij¬ 
ven van het DTACK signaal even vast 
worden gehouden door ’Gary’. Hier moe¬ 
ten we het voorlopig even bij laten, want 
dieper op deze materie ingaan is voor 
deze cursus absoluut overbodig. Voor 
mensen die iets meer hiervan willen we¬ 
ten verwijs ik allereerst naar het hand¬ 
boekje dat bij uw computer werd gele¬ 
verd. In de Appendix bevindt zich een be¬ 
knopte technische beschrijving van de 
Amiga. 

MC68000 registers 

In de MC68000 bevinden zich een aantal 
geheugenplaatsen die we registers noe¬ 
men. In deze registers bergen we tijdelijk 
informatie op die nodig is voor het uit¬ 
voeren van de instructies. Een aantal van 
deze registers zijn bestemd voor intern 
gebruik, en een aantal zijn zogenaamde 
programmeerbare registers. Deze laatste 
zijn toegankelijk voor de programmeur 
met behulp van instructies. Zo kennen we 
8 dataregisters (32-bits) en 9 adresregis¬ 
ters (32-bits). Dit zijn de ’general purpo- 
se’ registers. Er is een program counter 
(32-bits), deze wijst op de eerst volgende 


instructie in het geheugen die opgehaalt 
moet gaan worden. Het is goed als er veel 
interne registers in een CPU zijn. Bewer¬ 
kingen op registers onderling hebben het 
voordeel gegevens niet uit een extern ge¬ 
heugen te hoeven halen. Hierdoor neemt 
de verwerkingssnelheid toe. Twee van de 
adresregisters dragen de naam User Stack 
Pointer [USP] en Supervisor Stack Poin¬ 
ter [SSP], Dit zijn wijzers naar het stapel- 
geheugen voor programma’s in user 
mode, en programma’s in supervisor 
mode (zoals systeemsoftware). In user- 
mode is alleen de USP aktief en beschik¬ 
baar voor de CPU. In supervisormode ge¬ 
bruikt de CPU de SSP voor het opslaan 
van de returnadressen bij een interrupt of 
een subroutine. De CPU kan desgewenst 
ook de USP lezen of veranderen. Wat is 
nou het voordeel van twee stackpointers? 
Doordat programma’s in usermode draai¬ 
en blijft de supervisor stack onaange¬ 
roerd. Systeemsoftware is dus beschermd 
tegen inbreken op de supervisor stack. A7 
is het adresregister dat dienst doet als Sys¬ 
tem stack pointer. Dan is er de program 
counter, die kan 2 A 23 woordplaatsen (16- 
bits) in hel geheugen adresseren. Dat is 
meer dan 8 miljoen words. Omdat extern 
niet alle adreslijnen op de MC68000 aan¬ 
wezig zijn, is het volledige 32-bits 
adrescapaciteit niet beschikbaar. Dan is er 
als laatste nog het statusregister. Deze 
geeft de toestand van de CPU aan, en de 
conditiecode’s. 

De adresregisters 

De MC68000 heeft negen adresregisters. 
Het adresregister is maximaal 32-bits 
breed. Het adres waar deze op wijst heeft 
dus maximaal de waarde 2 A 32. Dat zou in 
principe betekenen dat door u ruim 4 mil¬ 
jard geheugenplaatsen kunnen worden 
geadresseerd. De makers van de 
MC68000 hebben echter gedacht dat u 
met de 24 laagste bits wel genoegen zou 
nemen. Daarom zijn slechts 24 bits bij 
adressering van externe geheugenplaat¬ 
sen aktief. Hierdoor is de effectieve 
adresseringscapaciteit dus (nog maar) 16 
MByte. In de negen adresregisters passen 
uitsluitend words (16-bit) of longwords 
(32-bit). Zeven van deze registers 
[A0..A6] worden zowel gebruikt door 
programma’s in user mode als door pro¬ 
gramma’s in supervisor mode. Alleen één 
van de twee overige registers kan als A7 
gebruikt worden door programma’s. Dit 
zijn de twee registers die dienen als stack 
pointer. Hiervan is één voor de user 
mode, en de ander voor de supervisor 
mode. Zo’n stack is een aaneengesloten 
geheugengebied. De geheugenplaatsen 
worden aangewezen door een stackpoin- 
ter (engels voor stapelwijzer). De eerste 
zeven registers [A0..A6] kunnen eventu¬ 
eel door u gebruikt worden als waren het 


stack pointers. Zo kunt u dus eigenhandig 
een aantal stacks creëren. 

De stack pointer (SP) verteld ons waar de 
top van de stack is. De bodem (’bottom’) 
van de stack is een vast adres, maar hier 
hoeven we geen rekening mee te houden. 
Stacks kunnen zowel van hoge adressen 
naar lage lopen, alswel andersom. In de 
CPU zijn een aantal specifieke stack ope¬ 
raties aanwezig. Twee van de belangrijk¬ 
ste zijn PUSH X en POP Y. Bij PUSH zal 
de stackpointer veranderen, en wijzen op 
een volgend adres. De waarde X zal nu 
opgeborgen worden in het geheugen op 
de plaats aangewezen door de stack poin¬ 
ter. Met een PUSH zal de stack met één 
item groeien. POP Y (PULL Y) doet 
exact het omgekeerde. POP Y doet de 
stack met één item afnemen, door het top 
item op de stack in Y te stoppen. Daarna 
wordt het item van de stack verwijderd 
door de stack pointer met de grootte van 
het item te veranderen. Een andere opera¬ 
tie die met de stack kan worden uitge¬ 
voerd, is het veranderen van de stack 
pointer zonder dat er data op de stack 
wordt geplaatst. Dit wordt normaal ge¬ 
sproken gedaan als we in een hogere 
programmeertaal (zoals pascal) een func¬ 
tie of procedure in gaan. Hiermee schep¬ 
pen we ruimte voor lokale variabelen. 
Een programma kan elk adresregister van 
de MC68000 gebruiken als stack pointer 
door de bij stack-operaties behorende 
adresseringsmethodes te gebruiken. 
Daarbij wordt de waarde in het adresre¬ 
gister, dat als stack pointer gebruikt 
wordt, bij een PUSH- of POP-bewerking 
automatisch met het juiste aantal ver¬ 
hoogd of verlaagd. Stacks die gebruik 
maken van A0..A6 als stack pointer, kun¬ 
nen uit bytes, words (2-byte) of long¬ 
words (4-byte) bestaan. Tot zover even 
het stack verhaal, adresregisters kunnen 
ook worden gebruikt als indexregisters. 
De indexwaarde wordt opgeteld bij de in- 
houd van een ander adresregister, om op 
deze manier het effectieve adres van een 
operand in het geheugen te berekenen. 

Dataregisters 

De MC68000 heeft acht dataregisters 
[Dn=0..7]. De microprocessor zorgt er¬ 
voor dat dat operands kunnen worden op¬ 
gevat als byte (Dn)[7:0], als word 
(Dn)[ 15:0J of als longword (Dn)[31:0]. In 
de instructie die een dataregister gebruikt, 
moet worden aangegeven wat de lengte is 
die bedoelt wordt. Dat deel van het betref¬ 
fende dataregister kan gebruikt worden 
als accumulator , als buffer, als tijdelijk 
register of als indexregister. Als je bere¬ 
keningen wilt uitvoeren met de inhoud 
van de dataregisters, dan moet je de 
dataregisters opvatten als accumulators. 
Deze bevatten dan de operands van aan¬ 
gegeven lengte. De dataregisters zijn een 


Commodore Info 7189 


75 



Amiga 


Afbeelding 1. 

Het formaat van een dataregister in de MC68000: 


—LongWord- 


—Worch 


31 


16 15 


-Byte- 

8 7 0 


buffer voor de data tussen databus en de 
processor. Deze buffer is nodig omdat de 
MC680000 een 16-bits databus heeft. 
Hierdoor is het mogelijk om in één keer 8 
of 16 bits over te brengen, maar niet een 
32-bits waarde. Een willekeurige 32-bits 
waarde moet in twee maal 16-bit over de 
databus worden gebracht. De dataregis- 
ters worden ook nog toegepast als tijdelij¬ 
ke opslag van data uit andere registers, of 
van de processor. Net als bij de adresre¬ 
gisters het geval was, kunnen dataregis- 
ters ook als indexregister dienen. De in- 
houd van een dataregister kan worden op¬ 
geteld bij de waarde van een adresre¬ 
gister, op deze manier berekenen we het 
effectieve adres van de operand. Het aar¬ 
dige van de indexadressering is dat de in¬ 
dex eenvoudig gewijzigd kan worden met 
behulp van elke instructie die op een da¬ 
taregister kan worden toegepast. Hiermee 
is het mogelijk geworden dat de index tij¬ 
dens het doorlopen van een programma 
op een slimme manier veranderd. Deze 
methode zien we o.a. toegepast bij 
’ loops’. 

Zo nog steeds niet in slaap gevallen? Het 
lijkt voor velen eerst nog een onsamen¬ 


hangende rotsooi. Maar voor degene die 
al eerder iets met machinetaal hebben ge¬ 
daan zal het best wel meevallen. 

Tot slot 

We zijn al weer aan het eind gekomen 
van deze inleidende stof tot het werken 
met de MC68000 voor deze keer. We 
hebben u nog niet heus kennis laten ma¬ 
ken met de machinetaal, maar dat komt 
nog. Weest u ervan bewust dat juist voor¬ 
gaande zaken van primair belang zijn bij 


het werken met onze computer. Soms is 
het handig als u weer even terugblikt op 
voorgaande zaken (doe dat ook!). 

De volgende keer laten we u uitgebreid 
met de stack pointer kennis maken, te¬ 
vens komen nog de program counter als 
wel het status register aanbod. De uiterst 
krachtige instructieset van de MC68000 
zal dan ook stapsgewijs besproken wor¬ 
den. 

Johan &johan 


Zelfs de beste computer kan problemen geven. 
Ook de uwe. U heeft alles al geprobeerd. 

Niets hielp. 



Als het opereren wordt..., 


gaat u naar ESCON. 

Wij staan on-line met de fabrikant en zijn het 
enige GEAUTORISEERDE SERVICE-CENTER 
Onder service verstaan wij het verhelpen en 
opheffen van storingen en het in optimale con¬ 
ditie houden van uw computer. 

Daarvoor staat een degelijk 
opgeleid service-team 
klaar. 

Wij kunnen u op de volgende manieren helpen: 

• Reparatie in ons service¬ 
centrum waarbij u uw computer 
zelf kunt brengen en halen of, 

• U belt ons en we komen uw PC halen en 
brengen deze na reparatie weer terug 

• Indien u erg veel haast heeft kunt u na telefo¬ 
nische afspraak langskomen en op reparatie 
wachten* 

Wij repareren praktisch alle DOS computers, 
daarnaast zijn wij ook specialist in de volledige 
productlijn van COMMODORE. Zowel voor 
C-64, Cl 28 (D), AMIGA 500/2000 en de PC-lijn 
vanaf PC-10 t/m PC-60. Naast de computers 
bieden wij tevens service op alle gangbare 
randapparatuur. 


Wat zijn de voordelen van 
ESCON service? 

U betaalt vaste reparatieta- 
rieven voor alle produkten 
en heeft op deze repara¬ 
ties drie maanden garan¬ 
tie. Dit geldt ook voor 
de door ons geleverde 
originele onderdelen. 

Bij reparaties boven de 
fl. 150 krijgt u automatisch 
een prijsopgave van de repa 
ratiekosten. 

Voor meer informatie over 
reparaties kunt u ons bellen 
en bent u welkom op: 


ESCON BV Antoniuslaan 
3341 GA H.l. Ambacht 
Telefoon: 01858-19922, 
Telefax: 01858-19682. 


Hieraan zijn extra kosten verbonden 
® Of) deze computers verlenen wij voc 
deline serviee-abr innementen 


ESK Het recept voor gezonde service 
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Animagic 

"Toveren" met ANIMS en .IFF-files 



D e naam Animagic suggereert 
het “toveren” met animaties. 
Hoewel dat toveren misschien iets 
overdreven is kan dit Aegis-pak- 
ket toch verbluffende animatie-ef- 
fecten uit de Amiga trekken. Een 
prima pakket dat uw desktopvi- 
deo-, bedrijfs-, produkt-, educa¬ 
tieve en muziekpresentaties een 
professioneel tintje meegeeft. 

Een betrekkelijk nieuwe ontwikkeling bij 
de desktopvideo op de Amiga is de Spe¬ 
cial Effect Generator (SEG)-software. 
Onder SEF verstaat men allerlei grafisch 
trukages zoals kleurveranderingen, rota- 


tiebewegingen, schaduweffecten, stro¬ 
boscoop, in/uitzoomen, wipes, fade 
in/out. Deze speciale effecten worden ge¬ 
bruikt om videoproducties, TV-shows, 
kabellogo’s en zakelijke presentaties 
meer impact te geven. Ook wordt grafi¬ 
sche SEG-software dikwijls bij de pro¬ 
ductie van tekenfilms ingezet. Met Aegis 
Animagic kunt u dat ook allemaal zelf op 
de Amiga. 

De hoge hoed met kaartspel, witte hand¬ 
schoenen toverstokje op de verpakking 
van Aegis Animagic wekt de illusie met 
een goochelaar van doen te hebben. In dit 
SEG-pakkel schuilt de magie hem echter 
meer in de digitale video-effecten, flitsen¬ 
de animaties en editingmogelijkheden 


dan het beduvelen van het publiek. Ani¬ 
magic kan veel met .IFF-bestanden en 
ANIM-style animaties. Fonteinen, flips, 
schaduwen, kleureffecten en -cycling, 
stroboscoop, draadmodellen, diverse edi- 
ting faciliteiten, noem maar op en het 
staat op de diskettes. De vakman en ge¬ 
vorderde video-amateur kan er direkt mee 
aan de slag. 

Dat gevorderde staat hier niet voor niets. 
Ondanks alle hulp die de Amiga en soft¬ 
ware de gebruiker bieden moet je wel 
enig inzicht in de bruikbaarheid van de 
geboden effecten hebben. Anders ontstaat 
en een niet te volgen of irriterende effect- 
warboel. In de beperking toont zich de 
meester. Alleen daar effecten aanbrengen 
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waar ze ook echt nodig zijn. Anders ont¬ 
aarden de effecten in een maniertje om de 
eigen onkunde te verdoezelen. 

Wat doet Animagic? 

Aegis Animagic is een kruising tussen een 
dtv video editing console en een SEG. In 
eenvoudig nederlands betekent dat een 
kombinatie van een videosnijtafel en een 
generator voor speciale effecten. 

De snijtafel helpt u bij het samenstellen 
van de animaties. Dat kan als korte losse 
beeldseries of als komplete tekenfilms. 
Die tekenfilms bestaan dan uit aan elkaar 
gelaste losse animatie- sequenties. Tot de 
beschikbare editopties behoren o.a. het 
toevoegen of verwijderen van beelden (= 
frames), cut en paste, het aanpassen van 
het kleurenpalet en de timing van de 
beeldsequenties. 

De software Special Effect Generator 
(SEG) brengt via de raster mapping-tech- 
niek speciale effecten aan. Vroeger moest 
zoiets met peperdure hardware gebeuren. 
Nu “tovert” u voor ƒ 269,- de fraaiste Di¬ 
gitale Video Effects (DVE’s) uit de Ami- 
ga. Volgens de handleiding zijn er op elke 
DVE zo’n 9025 variaties mogelijk. Ons 
ontbrak het uiteraard aan de tijd om al 
deze kombinaties te gaan beproeven. Wel 
raakten we bij de geteste mogelijkheden 
onder de indruk van de SEG-kracht en het 
relatieve bedieningsgemak van Anima¬ 
gic. 

De AnimagiC'Studio 

Door het starten van de Edit Bay Main 
Control panel verandert de Amiga in een 
echte DTV-studio. Via dit controlepaneel 
kunt het gehele video-editproces bestu¬ 
ren. Alle belangrijke functies zoals het in¬ 
laden van de frames, cut en paste, het aan¬ 
geven van de tijdschaal (met start en stop 
van de animaties), het instellen van het 
kleurenpalet en de eolor-cycling, het op¬ 
geven van de videobron- (maximaal 2) en 
videobestemmingsbuffers. Verder behan¬ 
delt de Edit Bay Main Control panel de 
screen size, het maken van eindloze ani¬ 
maties (looping), het over elkaar heen 
leggen (layer) van ANIMS en het instel¬ 
len van de schermresolutie met bijbeho¬ 
rende kleurmodus. 

Alle functies zijn volledig muisgestuurd 
en de help-sequesters kunnen overal wor¬ 
den opgeroepen. 

ANIMS 

Alvorens naar de DVE-opties te gaan 
eerst iets over de ANIM- techniek. ANIM 
is een standaardfileformaat voor anima¬ 
ties en werd ontwikkeld door Aegis en 
Sparta Ine. De bedoeling van het ANIM- 
formaat is om de omvangrijke animatie¬ 
sequenties zo kompakt mogelijk op te 


slaan en bij het oproepen weer snel af te 
spelen. 

Een ANIM zit alsvolgt in elkaar: Als eer¬ 
ste wordt een standaard .IFF grafisch be¬ 
stand van beeld 1 gemaakt. Van het daar¬ 
op volgende beeldje 2 behoeft de Amiga 
slechts te weten in hoeverre dit beeldje 
van het eerder opgeslagen frame 1 af¬ 
wijkt. Alleen de informatie over de ver¬ 
schillen van de opeenvolgende beeldjes 
wordt naar de schijf weggeschreven. Dat 
bespaart enorm veel ruimte in vergelij¬ 
king met het in zijn geheel saven van deze 


iets gewijzigde frames. Een animatiese¬ 
quentie van vele MegaBytes kan zo met 
gemak tot minder dan één MB worden te¬ 
ruggebracht. 

Natuurlijk hangt de uiteindelijke grootte 
van het ANIM-besland af van het aantal 
veranderingen dat tussen de opeenvol¬ 
gende schermen optreedt en de gebruikte 
resolutie. Hoe meer veranderingen en hoe 
meer pixels des te groter de ANIMs. 

Het ANIM-formaat wordt momenteel 
toegepast in Aegis VideoScape 3D„ Ae¬ 
gis Modeler 3D, Aegis Video Titler, 
Lights!, Camera!, Action!, Deluxe Paint 
III, The Director, Phonton Cel Animator, 
Hash Animation Series en Utilities zoals 
GrabANIM en ShowANIM. 

DVE Control Window 

Het kontrolevenster voor de DVEs vormt 
de sleutel tot hoge hoed vol met truuks 
van Animagic. De gebruiker zoekt een 
geschikt DVE uit het popup-menu. N.B.: 
De Digitale Video Effecten staan in 
DVEMaps directory op de programma- 
diskette en zijn herkenbaar aan de toevoe¬ 
ging .MAP. Is er eenmaal voor een be¬ 
paald DVE gekozen dan gaat u samen 


met Animagic bekijken hoeveel frames er 
voor het beoogde DVE nodig zijn. Via 
PREVIEW en MANUAL PREVIEW 
kunt u de werking van het DVE bij het 
opgegeven aantal beeldjes bestuderen. 
Dat kan in voor- en achterwaartse rich¬ 
ting. 

Zoals reeds eerder vermeld werd kan de 
videomaker uit twee videobronnen (Sour- 
cel en Source2) kiezen. Alleen de opge¬ 
geven S wordt in bewerkte vorm naar de 
bestemmingsbuffer gekopieerd. De ande¬ 
re S blijft voorlopig ongewijzigd. 


Verder bevat het DVE kontrolevenster 
nog instellingen voor TRANSLUCENT 
(verloop stroboscoop van gekleurd tot ge¬ 
heel doorzichtig), Outline, Backdrop, 
Grid en 3D. Welke effecten kunt u nu met 
de DVE.MAPs maken? Even afgezien 
van de 9025 variaties zijn devolgende 
SEGs mogelijk: 

• Expand. Het groter worden van een 
object vanuit een opgegeven scherm- 
punt 

• Horizontale Blind. Rotatie om de 
horizontale as. Gebruikt voor 3D-ef- 
fecten 

• Spinl. Laat het beeld van uit het 
centrum tot schermvullend uitdeien 
met daarin opgenomen één omwente¬ 
ling 

• Spin3. Idem met drie omwentelingen 

• Split verdeelt het beeld in twee de¬ 
len. De rechter beeldhelft begint links 
en de linker beeldhelft start rechts. 

• Squeeze drukt het huidige beeld naar 
rechts samen terwijl het volgende 
beeld vanuit links wordt uitgerekt 
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• Vertical Blind voor rotatie om de 
vertikale as en het creëeren van 3D- 
effecten 

• Wrap, Iris/diafragma-effect, deelt het 
beeld in vier stukken op en sluit net 
als een diafragmasluiter bij een foto- 
kamera 

• Box2 plaatst het beeld uit SI op een 
zeshoekige doos, draait de doos over 
90 graden en laat S2 op het nu voor¬ 
liggende vlak zien 

• Box4 laat SI op de vier zijden van 
een draaiende (vertkale of Y-as) doos 
zien 

• Confetti het beeld regent in 225 
deeltjes van links boven als een dou¬ 
che over het scherm 

• Corner Expand trekt het beeld van¬ 
uit de linker bovenhoek over het ge¬ 
hele scherm uit 

• DoorslO opent tien verticale jalou- 
zieën en toont de daarachter gelegen 
S2 

• Doors2 opent als een tweedelige 
deur om de daarachter gelegen S2 te 
laten zien 

• Dribble trekt een druppelend verf- 
spoor van 160 vertikale paintstrepen 


• FallAway5x5 laat 25 beeldfragmen¬ 
ten naar hun beeldpositie draaien om 
één geheel beeld op het scherm tc 
zetten 

• Horizontale Blindó geeft zes hori¬ 
zontale jalouzieën die van boven naar 
beneden steeds sneller draaien 

• Page Turn draait het getoonde beeld 
als een boekpagina om 

• Plain is de standaard DVE.MAP in 
kopieert het volledige ongewijzigde 
source beeld uit SI of S2 naar de 
doelbuffer 

• Slideln doet een klein beeldje dat 
steeds groter wordt en recht op gaat 
staan het scherm glijden 

• De Tumble is een bekende SEQ die 
S1 over de horizontale as doet tuime¬ 
len en vervolgens door S2 vervangt. 

• Unfold9 vouwt negen beelddelen als 
een waaier uit tot één beeldvullend 
geheel 

• Vertikale Blindrt gebruikt zes verti¬ 
kale jalouzieën met een oplopende 
symmetrische rotatie 

Al deze standaard effecten kunnen via het 

kontrolepaneel bewerkt worden. Bijvoor¬ 
beeld met stroboscopisch, verandering 

van kleurpalet of schaduwwerking. 


Hardware en handboek 

DTV en SEGs stellen hoge eisen aan de 
Amiga. Voor minimaal gebruik is een 
Amiga met 1MB aan vrij RAM voldoen¬ 
de. Wie het onderste uit de kan wil doet 
er beter aan om 2MB aan RAM en een 
mathematische coprocessor of een MC 
68020 te installeren. Animagic is van 
huisuit al berekend om met een MC 
68020 of MC 68881 te werken. 

Het meegeleverde engelse Aegis-hand- 
boek is ons inziens wat beknopt. De be¬ 
ginner kan na het lezen van de tekst en het 
oefenen met de tutorials wel aan de slag, 
maar creatieve suggesties ontbreken. Dat 
is toch jammer gezien de grote potentiële 
mogelijkheden van Animagic. De gevor¬ 
derde videohobbyist en professional zul¬ 
len hun weg wel vinden. 

Animagic is een goedkope en veelzijdige 
oplossing voor een aanzienlijk duurdere 
hardware SEG-generator. Echt professio¬ 
nele SEGs bieden meer. Zij kosten echter 
het twintigvoudige en zijn minder ge¬ 
bruiksvriendelijk dan dit Aegis DTV- 
pakket. 

Info: Altycos, tel.: 079-51075. 

U.S. 


COURBOIS SOFTWARE 


Fazantlaan 61-63 
6641 XW Beuningen 
Telefoon : 08897-72546 
Postbank : 43.03.695 


##### SOFTWARE VOOR ALLE AMIGA'S #### SOFTWARE VOOR ALLE AMIGA'S ##### 


##### VERDER OOK LEVERBAAR ##### 


##### HARDWARE ## HARDWARE ##### 


Topografie Europa - Leer de steden, rivieren, zeeën en bergen van 

Europa. Met 12 verschillende landkaarten. 

DeskTop Publisher - Maak uw eigen krant met dit programma. Vreemde 

Karaktersets en plaatjes kunt u inlezen. 

Label Designer - Maak etiketten voor uw diskettes. Kompleet met 

een aantal tekeningen en karaktersets. 

Font Designer - Maak uw eigen karaktersets die u ook in andere 

programma's kunt gebruiken. 

Werken met AmigaBasic - Een cursus voor beginners en gevorderden. Met 

veel voorbeelden en lees-teksten. 

Adressen Bestand - Een bestandsprogramma met sorteer- en afdruk- 

mogelijkheid voor lijsten en etiketten. Met 
snel zoeksysteem. 


Topografie Nederland 

Werken in de CLI 

Onderwijs Diskettes 
Kleurboek 

Werken met PD 

Lingo 

LodeRunner 

Push 

Virus Killer 

PD-Games Serie 
Klaverjassen 

Space Invaders 
Show Designer 

Font Diskettes 
Crillion 
Kaart Spelen 


- Leer de steden, rivieren en gebieden van 
Nederland. Met 14 verschillende landkaarten. 

- Uitleg van alle CLI-Kommanüo's. Met veel 
teksten en voorbeelden. 

- 4 verschillende diskettes met elk een aantal 

programma's gericht op het basis-onderwijs. 

- Meer dan 30 plaatjes die u op de computer kunt 
inkleuren. Erg leuk voor kinderen. 

- Een cursus omgaan met Public Domain software. 

Met teksten en voorbeelden. 

- Het bekende TV-spel nu ook thuis spelen. Met 

meer dan 2400 5-letterige woorden op diskette. 

- Een spel met meer dan 100 speelvelden. Pak de 
pakjes op, maar ontwijk de robotten. 

- Een verslavend logica-spel met meer dan 100 

speelvelden. Schuif kisten op en neer. 

- Uitleg over wat virussen zijn en hoe u deze 
uit de computer houdt. Met een aantal opzoek¬ 
en killer-programma's. 

- Zes verschillende diskettes met op elk acht 
spelen uit het Public Domain. Inclusief 
Nederlandse uitleg. 

- Grafisch kaartspel voor l speler. 

- Schietspel met veel verschillende ruimte- 
monsters. 

- Maak uw eigen dia-show op de computer. Met 
veel verschillende manieren van opkomen en 
verdwijnen van plaatjes. 

- Twee verschillende diskettes met op elke 
diskette 60 verschillende karaktersets. 

- Eens een andere versie van breakout met 25 
verschillende levels. 

- Drie verschillende kaartspelen op 1 diskette 
om tegen de computer te spelen. 


- Galaxians - Boulder Dash 

- Leg Puzzel - Memory Master 

- Prg. Bestand - Mini Loco 1-2-3 

- Electro - PrinterTekening 

- Etiket Maker - Platen Bestand 

- Scrabble - DTP Plaatjes 

- Find the Way - GameDisk 1-2-3 

- Lunar Escape - Picture Boot 

- Puzzle Mania - Razzle Dazzle 

Alle Amiga software is in de 
Nederlandse taal en kost slechts 
15 gulden per diskette. 


Public Domain overzicht 
Een overzicht op 4 diskettes van 
meer dan 1500 verschillende 
Public Domain diskettes. 

Prijs ; 20 gulden 


Public Domain Diskettes al vanaf 
5 gulden . Meer dan 1500 disket¬ 
tes uit o.a. de volgende series: 


Fish 

- Kickstart 

- RHS 

ACS 

- Taifun 

- Tornado 

RPD 

— Amicus 

— Muziek 

Auge 

- Faug 

- TBAG 

Kiss 

- Bordellos 

- Safe 

Franz 

- Panorama 

- Intro's 

RMS 

- CD Player 

- Icons 


stofhoezen voor de Amiga 500 en 

Amiga 2000 al vanaf 15 gulden . 


Sound Digitizer 

inclusief software, werkt met 
bijna alle andere programma's. 

Prijs ; 99 gulden 


Kickstart Omschakelprint 
Hierin kunnen 3 kickstarts. In¬ 
bouw zonder solderen. 

Prijs ; 75 gulden 


Eprommer 

Hiermee kunt u alle gangbare 
type eproms programmeren. Met 

software. Prijs : 275 gulden 


Bootselector DF0-DF1, DF2, DF3 
Maak ook uw externe diskdrive 
bootbaar. Zonder solderen een¬ 
voudig te monteren. 

Prijs : 25 gulden 


Diskdrives 

3.5" drive . 349 gulden 

5.25" drive . 425 gulden 

Alle drives zijn doorgelusd en 

de 5.25" drive is omschakelbaar 
tussen 40 en 80 tracks. (MS-DOS) 


Geheugenuitbreiding Amiga 500 
Een interne geheugenuitbreiding 
met een klok en batterij. 

Prijs : 350 gulden 


Etiketten voor 3.5"- en 5.25"- 
diskettes. Vanaf 3 gulden . 


Diskettebakken in alle formaten 
voor alle typen diskettes, met 
of zonder slot al leverbaar 
vanaf 5 gulden . 


Natuurlijk leveren wij ook : 


- Diskettes 

- Muismatten 

- Joysticks 

- Harddisks 

- Geheugens 

- Kabels 


- Stofkappen 

- Tijdschriften 

- Midi-interface 

- Handy Scanner 

- Easel Tekenbord 

- Track Display 


Alle prijzen exclusief verzendKosten. Bel voor een GRATIS catalogus : 08897 — 72546 
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